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This thesis huilds a simulation model of a tactical 
fire control system in a real time environment, using a 
tightly connected multi-processing system consisting of two 
single hoard computers. The additional hardware used in 
this project consists of an ADM-3A video terminal with a 
huilt-in retrographics feature, an MDS microprocessor 
development system, an analog-to-digi tal conver- 
ter, and two sets of triplet potentiometers. The poten- 
tiometers are used to feed analog information about own- 
ship, targetship, and gun position to the simulation model, 
which then evaluates and computes projected target 
positions and gun control parameters, and displays the 
results . 
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I. INTRODUCTION 



A. BACKGROUND 

To this date, many tactical control and decision 
systems have been designed and implemented in various 
places, where the nature of the job required fast response 
and decision making. The NTDS (Navy Tactical Decision 
System), for instance, is one such system implemented for 
U.S. Navy ships in 1962, and is still in use today, with 
recent hardware modifications. 

The revolutionary developments in the LSI (Large Scale 
Integration) and VLSI (Very Large Scale Integration) 
industries during the period from 1972 to 1983 have made 
the costs of computing much less expensive than the costs 
of yesterday's systems. Today's products, which are based 
on these innovations in large scale integration, have 
proved to be more reliable and more versatile than the old 
systems, and they can also be tailored to the needs of 
whatever the nature of the requirements may be. The 
serviceability, availability and inexpensiveness of these 
products, in addition to the above-mentioned features, 
offer both the designers and the implementers an 
opportunity to take advantage of this technology. 
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B. DISCLAIMER 

Many terms used in this thesis are registered trade- 
marks of commercial products. Rather than citing each 
individual occurance of a trademark throughout this thesis, 
all registered trademarks referred to in this thesis will 
he listed helow, following the name of the firm holding the 
trademark. 

Intel corporation, Santa Clara, California: 

Intel, Intel 8086, iSBC 86/12A, MULTIBUS, MDS 

Digital Research Corporation, Pacific Grove, • 
California : 

CP/M, CP/M-86, PL/I-60, PL/I-86, TED, RASM-86, 
LINK-86, DDT -86 

EX-CELL-0 Corporation, Irvine, California: 

REMEX Data Warehouse 

MicroPro International, San Rafael, California: 
Wordstar 

Micropolis Corporation, Chatsworth, California: 
Micropolis 

Lear Siegler, Inc., Anaheim, California: 

ADM-3A 

C. PURPOSE OF THIS THESIS 

The purpose of this thesis is to create a simulation 
model for real time tactical systems which can he used to 
study the following features: 

1. Multiprocessor system real time performancej 

2. System reliability? 

3. Graphics Display? 

4. Software Engineering. 
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In order to carry out these objectives, certain 
hardware changes had to be made. The real time 
applications necessitate the existence of an interrupt- 
driven configuration originating from an accurate timer. 
The interconnections and the appropriate initializations, 
both in the timing (PIT) and the interrupt (PIC) circuits, 
were made on the iSBC 86/12A board, to give the required 
real time clock. After achieving the desired form of 
operation, the real time executive module (which 
synchronizes the operation of the simulation system 
programs) was tested in an interrupt-driven environment. 
After testing out both the real time executive and most of 
the simulation system programs, the individual execution 
times of the simulation system programs were measured with 
the aid of TIMES. AID, an %INCLUDE file (see Apppendix F). 

It was intended to utilize two iSBC 86/12A single board 
computers in order to study the real time performance of a 
tightly connected multiprocessing scheme. The Intel MBS 
(Microprocessor Development System) allows the configura- 
tion of such an expansion, through its 20 bit MULTIBUS 
backplane. It was also planned to write the required 
software to prevent a single point failure and to gain a 
"graceful degradation" in the case of a malfunction in any 
of the single board computers. 
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The ADM-3A video terminal, with its built-in Retro- 
graphics unit, was utilized for graphics display purposes. 
The Retrographics card contains a Z-80A eight bit 



microprocessor. This allows the computations for high 
precision graphics to be done by the video terminal. That 
improves the efficiency by removing much of the overhead 
from the iSBC 86/12A single board computers. The 
Retrographics unit can also make drawings and erasures 
selectively. This improves the display time, which might 
be lost due to total erasures and redrawings. In other 
words, the selective erasing capability decreases the 
display time, such that the program may make partial 
erasures, erasures of single objects. 

The programs written for the simulation model were made 
as modular as much as possible, to facilitate testing and 
maintenance, and to make room for future alterations. A 
procedure call was placed wherever a critical design 
decision was to be made. This procedure call gives the 
option of changing a critical design decision if one that 
is more efficient is designed. Structured programming and 
efficient data structures were meant to be utilized. 
Circular linked-lists are examples of such a programming 
technique . 
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D. THESIS ORGANIZATION 

The thesis is organized into four chapters, 
ram listings developed to implement the Simula 
are • appended at the end of the text. The fi 
covers the background, the disclaimer for the 
used in this thesis, the intended purpose of 
and thesis organization. The second chapter 
system configuration and the hardware compo 
third chapter deals with software modules wri 
PL/I-86 and RASM-86 assembly languages. The p 
ments are discussed in detail in this chapter, 
mation about the data structures used in the 
of the software are brought up, as well as the 
tion of the programmable hardware components, 
chapter, some conclusions are presented o 
involved in the implementation of the simulatio 



The prog- 
tion system 
rst chapter 
trademarks 
the project 
covers the 
nents. The 
tten in both 
rogram seg- 
Some infor- 
devel opement 
init ial iza- 
In the final 
n the work 
n system. 
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II. SYSTEM HARDWARE 



A. SYSTEM CONFIGURATION 

The existing system hardware (see Figure 2.1) uses the 
Intellec microcomputer development system (MDS), which 
allows the expandability required to set up a multi-proces- 
sor system. Within the MDS t the hoards required for the 
operation of the system are interconnected through the 
MULTIBUS hacRplane. These hoards are the following: two 
iSBC 86/12A hoards, the front panel control hoard, an A to 
D converter hoard, and two interface hoards for disk 
drives. The MDS utilizes an Intel disk drive unit which 
has twc disk drives. Standard 8-inch IBM floppy disks are 
used as the removable storage media. 

Each iSBC 86/12A hoard had a RAM capacity of up to 
OFFFF hexadecimal (65535 decimal) eight hit bytes. Since 
the MULTIBUS is a 20-hit address bus, the address space of 
the whole system can he expanded up to 1 megabyte. The 
single hoard computers can address this memory space hy 
their 20-hit address bus. Each hoard is so wired that 
the first 64 Kbyte RAM segment resides on its hoard (0000 
through FFFFH ) . The 64K RAM segments on each hoard can he 
wired to he accessible from the MULTIBUS as dual ported 
memories in the 1-megahyte address space. One of the iSBC 
86/12A hoards is the master of the master-slave 
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Figure 2.1 - System Interconnection 
multiprocessor scheme. The master hoard is assigned the 
first 54Ksegment (00000h - 0FrJFh) where the slave hoard is 
assigned the second 64K segment ( 10000h-lFFFFh) . In this 
configuration the A-to-D hoard occupies the segment with 
the addresses (D0000h-DFFFFh ) . The outputs of the A-tc-D 
converter are memory~mapped as eight hit hytes and occupy 
the locations DF700H through LF70FH . That is to say that 
they are viewed hy the CPU's in the system as being 
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ordinary memory locations. An analogy to that is that they 
resemble read only memory that can only be read but not 
written in to. 



The master iS3C 86/12A is connected to the ACM-3A video 
terminal through it's serial I/O connector. This is the 
only means of communication of the system to the outside 
world. The results of the simulation are fed to the video 
display through this interconnection. The ABM-3A video 
terminal has a built-in retrographics feature. The 
consequence of this is that the ADM-3A works not only as an 
alphabetic terminal but also may act as a graphics device 
due to the fact that the retrographics card itself has a Z- 
80A microprocessor built in. This microprocessor allows 
the high precision graphics computations to be done without 
the need of any other external processors. In this case, 
AEM-3A has four operational modes, each one of which has 
an impact on the simulation graphics and will be discussed 
later in this chapter. 



B. HARDWARE 

In the following subsections the individual components 
that comprise the system hardware are presented. 

1. MDS 

The Intellec Microcomputer Development System (MDS) 
is a complete development tool which allows the 
Integration of both microcomputer hardware and software 
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development. The system operates under the control of an 
8086 microprocessor which supervises all system resources 
such as the main memory, I/O peripheral devices, and 
optional system facilities, such ^s A-to-D converters. 
It can support up to 7 iSBC 86/12A boards in this 
configuration. Some of the important boards are presented 
bel ow . 



a. Front Panel Control Board 

The Front Panel Control Board contains circuits 
for controlling the front panel options. It also provides 
some signals for bus control, clock generation, and the 
bootstrap program. A bus time-out system is included to 
prevent the CPU from halting operation if a nonexistent 
memory location or an incorrect I/O port is addressed. 

This board produces two types of clock pulses: 
(1) Bus Clock (10 MHz), used in Bus 



transactions > 

(2) Common Clock (10 MHz), used by system 



devices ; 

b. Disk Interface Boards 

These two cards contain the disk controller 
interface for each drive in the Disk Storage Unit. 

2. Single Board Computer 

Intel's Single Board Computer iSBC 86/12A is used 
in the system. It is a member of Intel's complete line of 
8- and 16-bit single board computer products and is a 
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complete computer system on a single printed-circuit assem- 
bly. The iSBC 86/12A hoard includes a 16-hit central 
processing unit (CPU), 32K hytes (32,768 hytes) of dynamic 
RAM, a serial communications interface (USAHT), three pro- 
grammable parallel I/O ports, programmable timers (PIT), 
priority interrupt control (PIC), Multibus interface con- 
trol logic, and bus expansion drivers for interfacing with 
other Multibus interface-compatible expansion boards. Also 
included is a dual port control logic to allow the iSEC 
86/12A board to act as a slave RAM device to other Multibus 
interface masters in the system, as is the case in this 
project. In the current state of the hardware, the RAM 
capacity of both iSBC 86/12A boards is expanded up to 64K 
bytes by installing an iSBC 300 Multimodule RAM option. A 
read only memory of 16K bytes is also added to both iSBC 
86/12A boards. The important components that make up the 
iSBC 86/12A board are discussed in the following 
subsections . 

a. CPU 

The iSEC 86/12A Single Board Computer is 
controlled by an Intel 8086 16-bit Microprocessor (CPU). 
The 8086 CPU includes four 16-bit general purpose registers 
that may also be addressed as eight 8-bit registers. In 
addition, the CPU contains two 16-bit pointer registers and 
two 16-blt index registers. Four 16-bit segment registers, 
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specifically: code, data, extra, and stack segment 

registers; allow extended addressing to a full megabyte of 
memory. The CPU instruction set supports many variations 
of addressing modes and data transfer operations, signed 
and unsigned 8-hit and 16-hit arithmetic including hardware 
multiply and divide, and logical and string operations. 
The CPU architecture permits dynamic code relocation, 
reentrant code, and instruction lookahead, 
h. Serial I/O 

The serial I/O port is controlled and 

interfaced hy an Intel 8251A USART (Universal 
Synchronous/Asynchronous Receiver/Transmitter) chip. The 

USART is individually programmable for operation in most 
synchronous serial data transmission formats. 

In the synchronous mode, the following are 



programmable : 



(1) 


Character length 


(2) 


Sync character (or characters) 


(3) 


Parity 


In the 


asynchronous mode the following 


programmable : 




(1) 


Character length 


(2) 


Baud rate factor 


(3) 


Stop bits 


(4) 


Parity 
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In both the synchronoxis and asynchronous modes, the 
serial I/O port features half- or full-duplex, double 
buffered transmit and receive capability. The USART 
transmit and receive clock rates are supplied by a 
programmable baud rate/time generator. 

c. Programmable Interval Timer 

Three independent, fully programmable 16-bit 
interval timer/event counters are provided by in Intel 8253 
Programmable Interval Timer (PIT). Each counter is capable 
of operating in either BCD (binary coded decimal) or binary 
modes? two of these counters are available to the system's 
programmer to generate time intervals under software con- 
trol. In this thesis project the counterl is used to 
generate timing pulses required for the real time clock 
operation to the system software. These pulses are sent to 
the PIC via the interrupt matrix as being an IRl input 
request . 

d. Priority Interrupt Control 

The priority interrupt control (PIC) which can 
be programmed to respond to edge-sensitive or level-sensi- 
tive inputs, treats each true input signal condition as an 
interrupt request. After resolving the interrupt priority, 
the PIC issues a single interrupt request to the CPU. 
Interrupt priorities are independently programmable under 
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under software control. The programmahle interrupt 
priority modes are: 

(1) Nested Priority. Each interrupt request 



has a fixed priority: 


input 0 is highest, 


input 7 


is 


lowest. This mode of 


operation is chosen 


in this 




thesis project; 








(2) Bully 


Nested Priority. 


This 


is 



essentially the same as item (1) above* with the exception 
that the requesting input is not locked out and pending 
requests are still accepted; 

(3) Auto-Rotating Priority. Priorities are 
equal. The last received input becomes the lowest priority 
input; 

(4) Specific Priority. Software assigns the 

priorities; 

(5) Special Mask. Interrupt requests that are 
being serviced are masked out; 

(6) Poll. The CPU's internal interrupt enable 
is disabled. Interrupt service is achieved by a 
programmer-initiated Poll command. 

The iSBC 86/12A board provides two sorts of 
interrupts which are bus vectored (BV) and non-bus vectored 
(NBV). The former deals with the interrupt requests 
from off-board sources where the latter deals with various 
on-board sources. The interrupt requests are fed to the 
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under software control. The programmatle interrupt 

priority modes are: 

(1) Nested Priority. Each interrupt request 

has a fixed priority: input 0 is highest, input 7 is 

lowest. This mode of operation is chosen in this 
thesis project; 

(2) Pully Nested Priority. This is 

essentially the same as item (1) above, with the exception 
that the requesting input is not locked out and pending 
requests are still accepted; 





(3) 


Auto-Rotating Priority. 


Priorities are 


equal . 


The last 


received input becomes the 


lowest priority 


input; 










(4) 


Specific Priority. Software assigns the 


priori 


ties; 








(5) 


Special Mask. Interrupt r 


equests that are 


being 


serviced are masked out; 






(6) 


Poll. The CPU's internal 


interrupt enable 


is disabled. 


Interrupt service is 


achieved by a 


programmer-initiated Poll command. 






The iSBC 


86/12A board provides 


two sorts of 


interrupts which 


are bus vectored (BV) and 


non-bus vectored 



(NBV). The former deals with the interrupt requests 
from off-hoard sources where the latter deals with various 
on-hoard sources. The interrupt requests are fed to the 
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PIC through the jumpers of the interrupt matrii, which will 
he discussed in the next subsection, 
e. Interrupt Matrix 

Interrupt requests may originate from eighteen 
sources without the necessity of external hardware. The 
interrupt matrix connects the selected source lines to a 
maximum of eight selected inputs of the PIC. It is an 
array of pins which can he connected to each other via 
jumper wires. There are two types of pins. The eighteen 



source lines constitute the input pins 


, where 


the 


pins 


that 


lead to the IRQ through the IR7 


inputs 


of 


the 


PIC 


constitute the output pins. (See 


Figure 


2-2 


for 


the 



interconnection scheme of this thesis project.) 
f. Dual Port RAM 

The iSBC 86/12A hoard has an internal hus for 
all on-hoard memory and I/O operations. Hence, local (on- 
hoard) operations do not involve the MULTIBUS interface, 
making it available for other iSBC 86/12A hoards for a 
multi-processor scheme. Dual port control logic is 
included to interface so that the iSBC 86/12A hoard can 
function as a slave RAM device (or common memory) when not 
in control of the Multibus interface. The CPU has priority 
when accessing on-hoard RAM. After the CPU completes its 
read or write operation, the controlling hus master is 
is allowed to access RAM and complete its operation. Where 
both the CPU and the controlling hus master have the need 
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to write or read several tytes or words to or from the on- 
board RAM, their operations are interleaved. For CPU 
access, the on-board RAM addresses are assigned from the 
bottom up of the 1-megabyte address space? i.e., 00000- 
0ETFFh. The slave RAM address decoding logic includes 
jumpers and switches to allow positioning the on-board RAM 
into any 64-K segment of the 1-megabyte system address 
space. The slave RAM can be configured to allow either 
16K, 32K , 48K, or 64K access by another bus master, with 
the installation of the iSEC 300 Multimodule RAM. In this 
thesis project all of the 64K-byte memory of the slave iSBC 
86/12A is made accessible to the master. Furthermore, 
both iSBC 86/12A boards are configured to occupy the first 
128K section of the 1-megabyte address space. 

3* AjtojD Converter Board 

This board is electrically and mechanically compa- 
tible with any iSBC 86/12A board and with MBS. Both the 
anolog input and output systems are contained on a single 
printed circuit board that is treated as ordinary memory 
locations by the CPU (memory mapping). This board simply 
gets the analog signals form the potentiometers and con- 
verts them to the digital signals compatible with TTL 
standards. The output of the A-to-D converter is one byte 
per potentiometer input, which varies from +127 to -128. 
This is the maximum value range a fixed binary (7) variable 
can assume in the PL/I language, by definition. So, the 
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Figure 2.2 -Interrupt Matrix Interccnnecticn 

software system thinks of the potentiometer value as chan- 
ging "between +127 and -128. The A-to-D converter board is 
configured to occupy the segment D000: (14th 641 portion of 
the 1-megahyte address space). 

ADM^-SA Terminal 

This terminal is the only means by which the 
operator communicates with the system. It is connected to 
the system with the master iSBC 86/12A board's serial 
I/O connector. It is an interactive device which is used 
to enter, display, and send information to a host computer, 
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and to receive and display informati-on from that computer. 
The information exchange between the terminal and the 
computer is made at different "baud rates, ranging up to 
19200. In this scheme, a 9600 baud rate is used. The 
keyboard contains 59 keys. The display memory is a RAM 
which is capable of holding 1920 characters. Data 
characters are displayed on 24 or 12 equally-spaced rows, 
each consisting of 80 columns. 

5* B5r512 Rf trpgraphics Card 

The RG-512 Retrographics printed circuit board is 
added to the ADM-3A terminal to extend the data and 
graphics display capabilities with the aid of a Z-80A 
built-in microprocessor. The RG-512 employs the bit map 
method of storing graphic images. This information is 
stored in a digital memory as a rectangular array of 
bits. Each bit is mapped onto the CRT screen and can cause 
a bright spot to be displayed. The RG-512 displays graphs 
and pictures by writing the proper bits into the 
graphics memory. One of the important features of the RG- 
512 is the ability to erase portions of the screen 
selectively. This is desirable when the application 
requires the use of dynamic displays employing motion or 
rotation to convey information. The RG-512 has four modes 
of operation. These are the ADM-3A Alpha Mode, the 4010 
Alpha Mode, the Point Mode, and the Vector Mode. The first 
one is equivalent to the operation of ADM-3A without RG- 
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512. The latter three modes make use of the hit map 
method . 



6 . 

slmulati 

anolog 

varying 



?°i§9iio0§ters 

Two sets of triplet potentiometer 
ng analog sensor information sourc 
signals to the input of the A-to-D 
between -5V and +5V . 



s are used as 
es. They feed 
converter hoard. 



28 



III. implementation of the SOFTWARI 



A. GENERAL INFORMATION 
1. Modularity 

A modular and eitenslLle simulation program is 
aimed at simplifying the debugging and testing phase and at 
facilitating possible alterations. The hierarchy of the 
modularity is composed of a head module and four second- 
level modules connected to the head module. These second- 
level modules are the initialization module, the simulation 
system module, the real time executive module, and the 
dynamic debugging tool module. These modules are 
separately compiled PL/I-86 and RASM-86 programs. Each 
main module is further subdivided into third-level modules 
to gain a finer granularity of modularity. In the 
programs, two useful special features of PL/l-86 are 
used. Those are %INCLUDE and %REPLACE statements. By 
those statements, global declarations that are the same in 
the scope of the simulation program need not be declared 
within each and every module. Instead, they are grouped 
together in the GLOBALS.INP declaration file. The ^REPLACE 
statement allows constants to be declared as in the other 
high-level languages like Pascal, such that the value of 
the constants can be changed without having to go through 
every program segment in which they occur. 
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2. Data Structures 

Linear arrays and arrays of structures (records) 
are used in the simulation program as data structures. 
These data structures are then linked to each other to 
establish circular linked lists. Figure 3.1 (on the next 
page) explains the general picture of tne circular linked 
lists in the simulation program. Fixed size data 
structures with fixed binary pointers are used in the 
program, rather than pointer data, to avoid the dynamic 
system overhead and to retain the benefit of random access 
capabilities inherent to linear arrays. 

The structure SHIP has two pointers, in addition to 
the fields that hold specifications about the ships in the 
area. Those pointers, PTR and LINK-SHIP have different 
purposes for different ships. SHIP (1), for instance, 
being the ownship points to two different circular linked 
lists. PTR points to the enemy ship's circular linked list 
by pointing to the target ship which is engaged (tracked) 
for the sea battle. The other pointer, LINK-SHIP points to 
the friendly ships circular list. The PTR field of other 
ships, on the other hand, points to another circular linked 
list, WAKE, to record their past positions that will be 
used for tracking and display purposes, where LINK-SIP 
points to the other ships in their category. The reason 
for using circular lists in this program is the ease with 
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ch one traverses through the lists and which does not 
essitate the use of another external pointer. 

Other Features 

The PL/I exception handlers (ON tody statements) 
used extensively in the dynamic debugging module, and 
various interactive parts of the program, to intercept 
error conditions that might te raised during the 
ting and execution of the program. The ON tody 
tements are contained in the EREHAND.AID file, which is 
%INCLUDE file. Upon receiving the control through a 
sed error condition, the statements in the file prompt 
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the user and give the control over to the REENTRY. PLI 
interactive debugging tool. 

One of the exceptional features of the simulation 
program is the use of non-local goto statements which are 
unacceptable in structured style of programming. It is an 
inevitable requirement, by the PL/I language, to suppress 
the raised error conditions by a non-local goto statement. 
It is also used in some parts of the dynamic debugging 
module, in order to by-pass the flow of control over to the 
debugging program when the optional ERRORON boolean switch 
is closed. Explicit comments are offered wherever non- 
local goto statements are used, to avoid confusing the 
reader . 

B. SOFTWARE FUNCTIONAL DESCRIPTION 

In the following sections, the structure of the modules 
and the programs that belong to those modules are 
described. The program listings are presented as 
appendices . 

1. Head ffodule 
a. WAR. PLI 

This main procedure is the head node of the 
hierarchical structure of the procedures used to modularize 
and structure the implementation of the simulation program. 
It contains two call statements, one of which is to 
the initialization module, to set up the tactical database 
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and to initialize various external variables that are used 
throughout the simulation program. The other call is for 
passing the control to the real time executive module where 
the control stays for the rest of the program execution. 
A listing of WAR.PLI is presented as Appendix A. 

2* Initialization Module 
a. INITVARS.PLI 

This PL/I routine, when called from the main 
procedure, constructs the tactical database in an 

interactive manner. It first initializes the pool of 
available SHIP and WAKE modes for later use. It then gets 
the interval of time which is used to update the 
information about ships in the tactical area and other time 
dependent functions. This time interval must be equal to 
the period of the real-time interrupts which depend on the 
timing constants used during the initialization of PIT. 
Detailed information will be presented later under the 
hardware initialization section. Then the control proceeds 
to establish the tactical database interactively. In this 
session, the initial information about azimuth, range, 
friend or enemy are written to the proper fields. Then, a 
circular linked list of four nodes is composed and the PTR 
field is made to point to that list. Finally, dependent on 
whether friend or foe, that particular node is added to the 
appropriate circular linked list. INITVARS.PLI makes use 
of various internal subroutines for linked list 
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operations. Those subroutines simply extract a node from 
the pool of available nodes. After establishing the linked 
lists, the INITVAHS.PLI initializes external variables that 
are used throughout the program. A listing of INITVARS.PLI 
is presented in Appendix B. 

3. Simul§tion System Module 

This module is composed of four PL/I programs which 
perform the simulation under the control of the real-time 
executive module. The following subsections describe the 
functional description of those programs. The listings of 
the program segments that comprise this module are 
presented in Appendix C. 

a. TACTICAL. PLI 

This routine has the highest priority among the 
system module programs. It first updates the position of 
each ship in the tactical area by calculating the relative 
velocity and multiplying that with the time interval, which 
is the period of timing interrupts that occur every 250 
milliseconds. The control then proceeds to calculate the 
future positions of the ships, for those ships which have 
been in the area for more than 4 seconds, and which are 
included in the enemy ship circular linked list. The 
routine uses the polynomial least squares curve fitting 
method with Legendre Polynomials. The coefficients are 
pre-calulated for the position of the ship one second after 
the time of calculations, based on the past four wake 
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points. TACTICAL. PLI also calculates the trajector/ of the 
travelling projectile if the gun is fired, 
h. DISPLAY. PLI 

This routine, which is invoked every second, is 
the interface of the simulation program for the ADM-3A 
screen. It s.imply traverses the circular linked lists and 
generates the appropriate display objects for the ships, 
their aim points which the own ship aims at, and the gun 
aim point. It also displays the travelling projectile if 
it is fired hy the system. The routines for generating the 
objects are internal for the DISPLAY. PLI. Another routine, 
TRANSLATE, translates the cartesian coordinates to the 
stream of characters that represent the x and y grid coor- 
dinates of the RG-512 Retrographic Screen Memory. Einally, 
the internal routine DRAW puts the generated objects on the 
screen in vector mode. According to the key variable, D, 
it either sets the data level to white and puts the object 
on the screen, or sets the data level to black and makes 
selective erasures. 

c. STATUS. PLI 

This routine, which is invoked at every second, 
is the interface of the system to the ADM-3A video terminal 
keyboard. The commands for the system are read from the 
keyboard by calling the serial I/O chip (USART) interface 
assembly program, KEYBOARD, which will be presented under 
Miscellaneous Assembly Routines. 
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The are four boolean variables used in the 
simulation program. Those are ENGAGED, MAGNIFIED, FIRED, 

and ERRORON. The STATUS. PLI sets these variables 

according to the value of the parameter passed to the 
assembly interface routine. ENGAGED (with "e”) shows if 
the system is engaged to any target (for TACTICAL .PLI ) . 
MAGNIFIED (with ”m"), which is used in DISPLAY. PLI, shows 
which display scale is being used and what the reference 
point of the display is. Usually, the display on the 
screen is relative to own ship. But that can be changed so 
that the ship engaged is at the center to the screen by 
setting MAGNIFIED true. FIRED (with "F”) boolean variable 
is used to commence the ballistic calculations and 
display. It is used both in TACTICAL. PLI and DISPLAY. PLI. 
Finally, ERRORON (with "d") is used to transfer the control 
to the dynamic debugging module, 
d. IDLE. PLI 

This program is the idle routine for the 
system, as it waits for a 250 millisecond timing interrupt 
to occur. It is the interface program for the six 
potentiometers which are used as sensors for the own ship 
velocity vector, the known ship velocity vector, and the 
gun elevation and bearing. The velocity vectors are com- 
posed of speed and course components. The IDLE. PLI gets 
this information by calling the Analog-to-Digital Converter 
interface assembly program, ATOD. The control then 
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proceeds to convert this information, which is in the fixed 
binary (7) form in range (-128, +127), to appropriate 
coordinate values, e.g. 50 knots maximum speed and the true 
azimuth between 0 and 360 degrees. This routine calculates 
own ship velocity components in cartesian coordinates for 
later use by TACTICAL .PLI . It also makes the initial 
ballistic computations for the gun. 

4* B§§! Time liecutive Model 

This module works as the interrupt handler for the 
real time interrupts that are initiated by programmable 
hardware components every 250 milliseconds. It is invoked 
by the WAR. PLI the first time and interrupts thereafter. 
It responds to the timing interrupts, which tell the system 
that data must be collected at this point in time. The 
module then resolves the priorities of the simulation 
system module programs and arbitrates the flow of control 
during the execution of the system. The real time 
executive module makes use of the operating system 
primitives, which are presented in the following 
subsections. The labels PI through P4 are associated with 
the simulation system modules TACTICAL. PLI, DISPLAY. PLI, 
STATUS. PLI, and IDLE. PLI, respectively. The listing of the 
programs included in the Real Time Module are presented in 
Appendix D. 
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a. ARBITER. A86 

This assembly language program is the real 
"worlrhorse" of the entire system. It first allocates stack 
areas for four simulation system during the assemtly time. 
Upon invocation hy the main procedure, it initializes the 
programmable hardware components and transfers the control 
to the P4.PLI process, which in turn calls IDLE.PLI 
repetitively until the first timing interrupt occurs. The 
interrupt entry point PROC0, where the process switcning 
starts, is entered by the interrupt software. At this 
point of execution, the external variable fourthevc, which 
signals the system that 250 millisecond event has occured, 
is updated to the new value by incrementing it by one. 
After storing the state of the program which is interrupted 
during its execution, ARBITER. A86 invokes SCHEDULE. PLI to 
obtain the name of the ready program that has the highest 
priority. If there are none, the interrupted program is 
resumed. If there is any ready process of higher priority, 
then ARBITER. A86 loads the process state and gives the 
control over to it. During this process switching, the 
upper boundaries of the stack areas are checked for a 
possible stack overflow, which could happen if the time 
interval was not sufficiently large for the system module 
routines to finish execution before the next timing 
interrupt comes. ARBITER. A86 has a second entry point, 
STORESTATUS, for the synchronization primitive AWAIT. PLI to 
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enter when the correct numter of interrupts for the calling 
synchronization primitive have not yet occured. 
h. AWAIT. 

This synchronization primitive is invoked as as 
an operating system primitive, by any process, PI through 
P3. AWAIT compares the value of the external variable 
FOURTHEVC to the threshold value of the calling process to 
see if it is greater or equal to the value at which the 

process is to proceed. If not, then it calls the 

STOBESTATUS entry of ARBITER. A86 to relinquish the control 
to the awaiting ready process, or to the P4.PLI that calls 
the IDLE.PLI simulation system program as the system idling- 
routine . 

C. SCHEDULE. PLI 

This synchronization primitive is called by 
ARBITER. A86 to return the name of the highest priority 
ready process. It does that simply by identifying the 

first ready process on the list. Because the scheduler 
scans the list in the descending priority order, the 
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synchronization primitives to decide whether or not a 
process is ready for execution. 

e. Pl.PLI 

This process is basically an infinite loop. 
Within this loop, there are three subroutine calls. The 
routine first makes a call to AWAIT. PLI to see if it is 
time for it to proceed. If not, the control doesn't come 
back again? instead, the current state of the process is 
stored by ARBITER. A86 and the highest priority ready process 
is executed. If it is the time, the control proceeds to 
call the simulation system module program TACTICAL. PLI . 
After that, a call to THRESH. PLI is made, where the 
threshold value that is allocated to Pl.PLI is incremented 
by the proper value. When the infinite do loop repeats 
itself, the call to the AWAIT. PLI will indicate that the 
process TACTICAL. PLI is not yet ready for execution and 
control is transfered to the highest priority ready 
process. 

f. P2.PLI 

This process is identical to Pl.PLI in form 
except the call is to DISPLAY. PLI instead of to 

TACTICAL. PLI. 

g. P3.PLI 

This process is identical to Pl.PLI in code 
except the call is to STATUS. PLI. 
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h. P4.PLI 



This process is similar to PI through P3 in the 
structure described above. There is only one call in the 
infinite do loop, which is to IDLE.PLI. This routine is 
always ready for execution and, basically, repeats itself 
until the next timing interrupt comes along. 

5* t'i'Scellaneous Assembly Routines 

There are few machine dependent functions that 
cannot be accomplished by the high-level language PL/I-86. 
Assembly routines were written to interface the PLI-66 
programs with the hardware of the 6086 microprocessor. 
These assembly routines are included within the main body 
of ARBITER. A86. There are two parameter passing 
conventions from PL/I-86 to the assembly language routines. 
In the first one, there is only one argument passed in the 
accumulator, as in a function call. In the subroutine 
calls, which is the case here, the address of the VECTOR 
that contains the pointers to the actual parameters is 
passed in the BX register. The following subsections give 
some descriptions about those assembly routines. Appendix 
E shows the listings of the modules, 
a. KEYBOARD. A86 

This routine is invoked by STATUS. PLI to read 
the keyboard. It is written so that the keyboard status is 
read to see if a key had been pressed instead of waiting 
indefinitely until a key was depressed, as would be the 
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case had the PL/I get statement been used. The program 
first reads in the status of the serial I/O interface chip 
(USAHT) to see if a character has been received from the 
keyboard. If it has, then the character is read and placed 
into a corresponding character variable, which is the 
formal parameter in the subroutive invocation. If there is 
no character received since the last attempt to read, the 
ASCII equivalent of 0 is put in key. The reason for that is 
that the character 0 is not being used as a command. 

b. AT0D.A86 

This assembly routine is called by IDLE.PLI to 
read the first six Anal og-t o-Digital Converter Board 
outputs. The reason to write this assembly routine is that 
the Analog-to-Digital Converter ports are memory mapped to 
be in the segment D000H. The PL/I function UNSPEC works for 
those memory locations which are included within the first 
64K bytes of memory. The assembly routine sets the proper 
segment and source index registers to point to those 
locations and makes an ordinary read operation. This value 
Is then put in the formal parameter passed tc the PLI-86 
routine. 

C. RINGBELL.A86 

This assembly routine simply sends a bell 
character to the video terminal and causes a bell sound to 
ring. This is equivalent to sending a control G in PL/I-86. 



42 



The only difference is that it can he used in other 
assembly routines. 

d. WAIT.A86 

^ This assembly routine reads in the status of 
the I/O interface chip and waits until the transmitter 
buffer is empty? i.e. the character which had been in the 
buffer is received by the video terminal and an 
acknowledgement signal is sent back to the interface chip. 
This routine is used by assembly routines that put out a 
message . 

e. SUSPEND. A86 

This routine simply resets the interrupt bit of 
the program status word (PSW) to disable the 8086 CPU from 
acknowledging the interrupts. It is used by the dynamic 
debugging system to stop the real time clock. 

f. RESUME. A86 

This routine first sets the interrupt flag to 
enable the 8086 CPU to respond to the interrupt requests. 
It also resets the PIT that is used to generate the timing 
clock pulses for the PIC. 

D. INITIALIZATION OF THE PROGRAMMABLE COMPONENTS 

The iSBC 86/12A board has three programmable hardware 
components, which were described in Chapter II. In the 
following subsections, the initialization sequences for 
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those hardware components which produce the real time 
synchronization are described. 

1. ySART Programming 

The 8251A USART converts parallel output data into 
virtually any serial output data format. The USART also 
converts serial input data into the parallel data format. 
Prior to starting to transmit or to receive data, the USART 
must he loaded with a set of control words. These control 
words, which define the complete functional operation of 
the USART, must immediately follow a reset (internal or 
external). There are two types of control words, namely, a 
Mode instruction and a Command instruction. Once the Mode 
instruction has been sent, the- Command instruction can be 
sent at any time prior to a read/write operation. The 
following assembly code is used to initialize the USART 
read/write mode: 



MOV AL,37H 
OUT 00DAH,AL 



During the course of execution, the serial I/O 
interface routine executes the following assembly code to 
read the USART status and to read the receiver buffer if 
any character has been received: 



IN AL,00DAH 
AND AL,02H 
JZ KEYBOARDl 
IN AL,00D8H 
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2* PIT ProgiaiDIpIng 

The 8253 PIT has three independent counters. 
They are Counter 0, Counter 1, And Counter 2. The input 
clock frequency is 22.1184 MHz supplied ty a crystal oscil- 
lator. The input clock frequencies can be adjusted via 
jumpers. In this project, Counter 1, with the default 
factory jumper connection (E59-E60), is used. The input 
frequency is 153.6 KHz. It is chosen to work in mode 0 so 
that it gives an interrupt on terminal count. The formula; 

N = TC 

where 

N is the count value for the counter 

T is the desired interrupt time interval 
in seconds 

C is the internal frequency (Hz) 



From the above formula, the count number for 
the counter 1 is found to be 38400 decimal (9600 hex). 
Since it is not possible to express this number in four 
decimal digits, the binary count mode is selected. The 
counter is initialized by sending a mode control word, 
followed by a down-count number. Once the counter is 
initialized, sending the down-count number resets it to the 
start condition. The following sequence of code is used to 
program the PIT: 
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MOV AL.50H 
OOT 00D6H.AL 
MOV AL,00H 
OUT 00D2H.AL 
MOV AL,60H 
OUT 00D6H,AL 
MOV AL,96E 
OUT 00D2H,AL 



3- PIC Programming 

The 8259A PIC is programmed in the nested mode. 

The master PIC with no slaves is accepted. For this parti- 
cular situation, the initialization words 1,2, and 4 are 
sent. The initialization word 2 is set to represent the 
interrupt vector address. This is the address that the 
control is given when the interrupt 1 occurs (04E) . An 
interrupt mask tyte is used to mask out the irrelevant 
interrupts for the purpose of this thesis. The PIC can he 
reset after each interrupt simply hy sending the EOI (end 
of interrupt) status hyte to the appropriate address. The 
initialization sequence is as follows: 



CLI 

MOV AL,13H 
OUT 00C0H,AL 
MOV AL,20E 
OUT 00C2E 
STI 

MOV AL,0FDB 
OUT 00C2H,AL 



To reset the PIC, 

MOV AL,20H 
OUT 00C0,AL 



46 






«s 



E. ASSEMBLY, COMPILING AND LINKING 



The assembly language code was written in HASM-86 and 
assembled by using the RASM-86 Assembler. This assembler 
produces relocatable files that can then be linked with 
other separately compiled or assembled object files by Link 
86. This linker accepts three types of input files. Those 
are the object file, library file, and/or an input file. 
Input files are very useful tools in that they include 
input command lines by an input file instead of writing the 
command line each time the programs are to be linked. The 
PL/I-86 compiler is used to compile PL/I programs. This 
compiler requires a 128 Kbyte RAM, as opposed to the PL/I- 
80 compiler, which requires 48K RAM. 

F. TESTING 

The hierarchical simulation program modules were 
designed and tested in a top-down manner. An extensive 
dynamic debugging module was used in the testing of 
individual modules (see Appendix F). The testing phase is 
first started with writing a skeletal model for the real 
time executive module. The PL/I-86 output statements 
(stubs), which printed some appropriate numbers, were 
inserted in the places where the simulation system module 
programs were invoked. The DDT86 (Dynamic Debugging Tool) 
was used to test and debug this skeleton program. Since it 
was a real-time interrupt driven program, the interrupt 
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enable tit (I) of the program status word was reset to zero 
(0) to control the flow of the program. Some error 
checkings are inserted in the main assemtly language 
program, ARBITER. A86, to see whether the process switching 
was done correctly, or to see if any of the stacks 
allocated to the synchronization primitives have 
overflowed . 

After testing the real-time executive model, the second 
phase was the testing of the subroutines that are used by 
the simulation system module programs. Appendix G shows an 
example for testing a subroutine. 

The third phase of the testing was to test and debug 
the simulation system program. The dynamic debugging- 
module was used for this purpose. This module is composed 
of FL/I-86 ^INCLUDE files and external PL/I-86 programs. 
The %INCLUDE files are inserted into the various parts of 
the program being tested. The code of this debugging 
system is bordered with comment lines from the main body of 
the program it tests. It is not visible to the program, 
i.e., it brings its local and global variables with the 
LOCALS. AID declaration ^INCLUDE file. It is possible to 
manipulate the system's external variables through the 
debugging system module, IDLE.PLI. 

The PL/I-80 had been used in the early stages of the 
testing phases because of the existence of redundant Intel 
8080 based systems in the Naval Postgraduate Micro-Lab. 
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But In the later stages. It was realized that this had 
caused some problems, due to some incompatibilities between 
the PL/I-80 and PL/I-86 systems. These deficiencies of the 
PL/I-86 have necessitated the testing and debugging of the 
programs to be done in the PL/I-86 based systems. The need 
for such a thorough debugging system module was then 
realized . 
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IV. CONCLUSIONS 

The original objectives of the thesis have teen 
accomplished, to a large extent. The hardware 
interconnections intended to promote real time clock 
operations have teen successful. A test model, which 
comprised the real time executive module and the FL/I put 
statements, instead cf the simulation system modules, was 
developed to check the system's operation and timing. 
Correct results appeared on the screen. Then, the testing 
and debugging of the simulation system programs showed that 
their algorithms and operations were correct, with the 
exception of the simulation system program, DISPLAY. PLI. 
The testing of DISPLAY. PLI shewed that the objects to be 
displayed on the video screen were not successfully put on 
the screen. One error, which was an automatic conversion 
error, was found in the routine TRANSLATE and corrected by 
using a step variable. However, an error still exists in 
the body of the procedure DRAW. 

Since the testing phase of the DISPLAY. PLI has not 
been accomplished, the objective of synchronizing two iSBC 
86/12A boards could not be accomplished. The intended 
purpose for this objective was to make the second iSBC 
86/12A jump to a waiting loop with the initial power start 
up interrupt (reset), to load the assigned simulation 
program segment to the common RAM, and to direct it to the 
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beginning of that program segment, through a lus vectored 
interrupt . 

A hierarchical and modular program model was 
constructed through the use of data structures and 
structured programming. The modularization allows possible 
future changes to the programs. 

The simulation system program constructed in this 
thesis could he a basis for further enhancements towards a 
complete fire control system, or a related tactical 
simulation system, due to its modularized nature. 

The dynamic debugging module designed to test and 
debug the simulation system modules can be used for the 
purpose of testing any other programs, simply by changing 
the names and formats of the variables that the debugging 
system manipulates. The advantage of using the %HEPLACE 
and %INCLUDE pre-processor statements, which are peculiar 
to the PL/I-86 version of the subset G, makes such an 
implementation feasible. 
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APPENDIX A 



HEAD MODULE PROGRAM LISTINGS 



A. WAR.PLI 



/♦ 

Prog Name : WAR.PLI 

Date ; Decemter 83 

Written by : M. Kadri Ozyurt 

Tor ; Thesis 

Advisor : Professor Kodres 

Purpose : This is the main procedure of the 

modular simulation program. It invokes the initialization 
module to set up the target database and to initialize the 
external variables used throughout the simulation program. 
*/ 



WARrPROCEDURE OPTIONS (MAIN ) ; 

/♦external procedures*/ 

DCL 

(INITVARS .ARBITER) ENTRY; 



/♦this call to the initialization module initializes the 
simulation system*/ 

CALL INITVARS; 

/♦this call gives the control over to the real time 
executive module*/ 

CALL arbiter; 

END war; 



52 



B. GLOBALS.INP 



/* 

Pro^ Name 
Date 

Written by 
For 

Advisor 
Purpose 
tions of the 
*/ 



GLOBALS.INP 
December 83 
M. Kadri Ozyurt 
Thesis 

Professor Kodres 
This ^include file 
global variables used in 



contains the declara- 
the simulation program 



DCL 

(COUNTER, SECONDS, MINUTES, HOURS, WAKE PTR, 
SHIP_PTR,AVAILSEIP,AVAILWAKE,P ,Q .NUMBERSHIPS, 

NODE, TARGET, KNOWN) FIXED BIN (7) EXTERNAL, 

FOURTHEVC FIXED BIN (15) EXTERNAL , 

D FIXED BIN(7) EXTERNAL, 

(DT,T_PRIME,T_OF,T) FLOAT EXTERNAL, 

(I,J,XX,TT) FIXED BIN(15), 

CURRENTPROC FIXED BIN (7) EXTERNAL , 

(ENGAGED, MAGNIFIED, FIRED, ERRORON, DONE) EIT(l) EXTERNAL , 

KET CHARACTER (1) EXTERNAL , 

THRESHOLD{0 :2) FIXED BINU5) EXTERNAL , 

ARG(0;5) FIXED BIN(7) EXTERNAL, 

ill OWN, VI OWN,VX TARGET, VY_TARGET,VX REL, 
VY'REL,VX~R0UND,VT_R0UND,7R) fixed decimal EXTERNAL, 

ALPHA FIXED DECIMAL EXTERNAL , 

(AX SUM,BX SUM,CX_SUM,AY SUM, BY SUM,CY SUM, 
AX*,BX,CX,AY,BY,CY,X_AT5,Y AT5,R,DX DT_AT5, 

DY DT_AT5,DR DT AT5 ,X_OFFSET , Y_OFFSET ,M )FIXED DECIMAL 

EXTERNAL, 



(01, 02) (5) FIXED DECIMAL EXTERNAL , 



1 SHIP(MAX_SHIPS) EXTERNAL, 

2 VELOCITY, 

3 COURSE FIXED DECIMAL 
3 SPEED FIXED DECIMAL 
2 POSITION, 

3 AZIMUTH FIXED DECIMAL 
3 RANGE FIXED DECIMAL 



INIT(0.0) , 
INIT(0.0) , 

INIT(0.0) , 
INIT (0.0) , 
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2 

2 

2 

2 

2 



COORDINATES, 

3 X FIXED DECIMAL INIT(0.0), 

3 T FIXED DECIMAL INIT(0.0), 

AIM, 

3 X_AIM FIXED DECIMAL INIT(0.0), 

3 Y AIM FIXED DECIMAL INIT(0.0), 

COUNT'FIXED BIN (7) INIT(0), 

NUMBER FIXED BIN (7) INIT(0), 

PTR FIXED BIN (7) INIT(0), 

LINK SHIP FIXED BIN (7) INIT{0), 
FRIEND BIT(l) INIT(FALSE), 



OBJECT (MAX SHIPS) 
2 LOCATIONS, 

3 D (0:10) 

3 V (0:10) 

2 AIMS, 

3 U AIM 
3 V'AIM (0; 
2 CUN, 

3 U CUN 
3 V^CUN 
2 WAKES, 

3 U WAKE (0 
3 UU_WAKE ( 
3 V_WAKE (0 
3 VV WAKE ( 



EXTERNAL, 

FIXED EIN(15) 
FIXED BIN(15) 



INIT((11) -1) 
INIT((11) -1) 



( 0 : 



( 0 : 

( 0 : 



10 ) 

10 ) 



FIXED 

FIXED 



BIN(15) 

BIN(15) 



10) FIXED BIN(15) 
10) FIXED BIN(15) 



iNiT((ii) -i:, 
INIT((11) -1), 

INIT((11) -1), 
INIT((11) -1), 



:10) FIXED BIN(1£) INIT((11) -1), 
0:10) FIXED BIN(15) INIT((11) -1), 
:10) FIXED BIN(15) INIT((11) -1), 
0:10) FIXED EIN(15) INIT((11) -1 ) , 



CUN EXTERNAL, 

2 POSITION, 

3 AZ FIXED DECIMAL 
3 ALT FIXED DECIMAL 
2 COORDINATES, 

3 X GUN FIXED DECIMAL 

3 t’cun fixed decimal 



INIT(0.0), 
INIT(0.0) , 

INIT(0.0) 

INIT(0.0) 



1 WAKE(4) EXTERNAL, 

2 COORDINATES, 

3 X.WAKE FIXED DECIMAL INIT(0.0), 

3 I WAKE FIXED DECIMAL INIT(0.0), 

2 LINK WAKE FIXED BIN(7) INIT(0), 



(SUSPEND, RESUME, ARBITER, I NITVARS ) ENTRY, 
KEYBOARD ENTRY ( CHARACTER ( 1 )) , 

ATOD ENTRY (FIXED BIN(7), FIXED BIN{7)); 
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C. CONST. INP 



Prog Name 

Date 

For 

Advisor 

Purpose 

declarations 

*/ 



; CONST. INP 
: December 83 
: Thesis 

: Professor Sodres 
: This %include file contains the 
used throughout the program. 



constant 



%REPLACE 
MAX WAKE BT 4, 

MAX'SHIPS BY 2, 

MAXVARS BY 82, 

OWN BY 1, 

RMAX BY 25000.0, 

MAXSQ BY 1.073E+09, 

TOP BY 32767.0, 

G BY 10.7246, 

7M BY 518.0, 

A BY 512, 

B BY 390, 

K BY 1.40625, 

L BY 4.513, 

TWO_PI BY 360.0, 

PI BY 3.1416, 

00 BY 1.0, 

TRUE BY 'I'B, 

FALSE BY '0'B, 

NIL BY 0, 

CLEAR SCREEN BY "'X^TL', 
CLEAR ALPHA BY "*Z', 

V EC MOD BY '"] ', 

POINTMOD BY j. 
ALPHA4010 BY ', 

ALPHA3A BY '“X', 

WHITEMOD BY "“[a', 
BLACKMOD BY 



/’*'mai number of wake nodes’*'/ 
/*max number of ship nodes’*'/ 
/’*'mai number of variables’**/ 
/township indicator’*'/ 

/’i'max gun range’*'/ 

/’*‘mai argument for SORT =*'/ 
/’*'mai number for fixed (15)’*'/ 
/’*‘gravitational con.yd/sec2’*'/ 
/^muzzle velocity’*'/ 

/’*'! coord, for center’*'/ 

/’*‘y coord, for center’*'/ 
/’i'azimuth proportionality c.’*'/ 
/*speed proportionality c.’*'/ 
/’*'def inition for 360 degree’*'/ 
/’*‘def inition of pi rad/180deg’*'/ 
/’*‘legendre poly, of zero deg.’*'/ 
/^boolean true*/ 

/^boolean false’*'/ 

/’*‘in linked list terminology’*'/ 
/’*‘char. sequence for retro.’*'/ 



/’*' 

/# •; 






" ’*'/ 
" =*'/ 


/’*' 






" */ 


/’*' ” 






" ’*'/ 


/’*' " 






’*'/ 


/’*' " 






” ’*'/ 


/* ■’ 






" */ 
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APPENDIX B 



INITIALIZATION MODULE PROGRAM LISTINGS 



A. INITVARS.PLI 



/* 

?TOg Name : INITVARS.PLI 

Date : December 83 

Written by : M. Kadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose : This routine prompts the user to 

the time interval (dt) and constructs the tactical ci 

linked list in an interactive manner. The control 

|roceeds to initialize the external variables. 



give 

rcular 

then 



initvars :proc. external; 

/* 

del 

^include 'const . inp ' ; 
%include 'global s . inp' ; 



/♦this iterative loop initializes the pool of available 
wake nodes*/ 

do i=l to max wake-1 ; 

link_wake(i)=i+i; 

end ; 

1 ink_wake (max_wake )=nil > 

/♦this sequence initializes the pool of available ship 
nodes*/ 

do i=l to max_ships-i; 

link_ship(i )=l+li 

end; 

link ship(mai ships)=nii; 

put skip list! 'Enter the time interval (dt) in seconds'); 
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Z"** the following block is an interceptor for a too large 
input value*/ 

on overflow begin? 

put list('*** too large, try again')? 
goto initl? 

end? 

initl: 

put skip list('>')? 
get list(dt)? 
revert overflow? 

put skip list ( 'Construct! on of the tactical database' )? 

numberships=0? 

done=f else ? 

/* this procedure call gets a ship node from the pool of 
available ships and assigns its address to ship pointer*/ 
ship_ptr=getship{ )? 
do while (“done)? 

put skip list('Enter the position of ' ,numberships , 
'th ship in true azimuth and in yards')? 
/*the following two on condition bodies are for the input 
line at init2*/ 

on error begin? 

put list('*** bad value, try again')? 
goto init2? 

end ? 

on f ixedo verf low begin? 

put list('*** too large, try again')? 
goto init2? 

end ? 

init2: 

put skip list( '>') ? 

get list (azimuth (ship_ptr ) ,range(ship_ptr) ) ? 

revert error? 

revert f ixedoverf low? 

put skip list('Friend or foe (F/E)?')? 

put skip list('>')? 

get list(key) ? 

/* the following sequence adds the ship node to the 
appropriate circular linked list, friend ships or enemy 
ships, according to the friend boolean value entered*/ 
if (key='F' ) ! (key='f ' ) then do? 
fr iend { ship, ptr)=t rue? 
if link_ship( own)=nil then 

link_ship{ ship_ptr)=ship_ptr? 

else 

link_ship ( Shi p_ptr)=l ink, ship (own) ? 

/*end if*/ 
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link_ ship (own) =ship,_ptr; 
end 7 *do*/; 
else do; 

f riend (ship_ptr ) =f al se » 
if ptr(own)=nil then 

link_shi?( ship_ptr )=ship_ptr; 

else 

link ship(ship ptr )=ptr ( own ) ; 

/#end ifV 
•ptr (own )=ship ptr; 
end /*if*/; 

/* the following procedure call and the iterative loop get 
available nodes from the pool, construct a circular linked 
list of four nodes, and assign the address of the list to 
the ptr pointer of the ship node which is being 
constructed*/ 

wake_ptr=getwake( ) ; 
q=wake_ptr ; 
do i=l to 4; 

p=wake_ptr ; 
wake_ptr=getwake( ) ; 
link_wake(p)=wake ptr; 
end /*do*/; 

link_wake (wake_ptr }=q ; 
ptr (ship_ptr) =wake.ptr ; 
number ( ship_ptr) =number ships ; 

put skip liit('Would you like to enter another ', 

'ship (Y/N)?'); 
put skip list ( '>' ) ; 
get list(key); 

if (key= 'Y ' ) ! (key= 'y ' ) then do; 
ship_ptr=getship{ ); 
if ship_ptr=nil then 
done=true ; 

/*end if*/ 
end ; 

else 

done=true; 

/*end if*/ 
end /*do*/; 
seconds= 0 ; 
minutes= 0 ; 
hours= 0 ; 
wake_ptr= 0 ; 
targe t= 0 ; 
t prime= 0 . 0 ; 
t’of= 0 . 0 ; 
t= 0 . 0 ; 
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/* engaged ship no hy the sensor */ 



f riend( own) =true* 
ltnown=2; 
i_offset=0.0» 
y^of f set=0 . 0 ; 
ri=50 . 0 ; 
f ourthevc=0 ; 
i=0; 

J=0; 

currentproc=4; 
engaged=false; 
magnif ied=f alse ; 
f ired=false; 
erroron=f alsei 
key='0' ; 

threshold(0)=l ; threshold( l)=4; threshold(2)=4; 

vx_own=0.0; 

vy_own=0.0 ; 

vx_ target=0 . 0 ; 

vy_ target=0.0; 

vx_rel=0 . 0 ; 

vy_rel=0 .0 » 

vx_round=0 . 0 ; 

vy_round=0 .0; 

vr=0 .0 ; 

alpha=0 . 0 ; 

ax_sum=0.0» ■bx_sum=0.0; cx_sum=0.0; 

ay sum=0.0; by sum=0.0i cy_sutn=0.0; 

ax=0.0;bx=0.0icx=0.0; 

ay=0 .0 ;by=0 .0 » cy=0 .0J 

x_at5=0.0»y_at5=0.0i 

r=0 . 0 J 

dx dt at5=0.0i dy dt_at5=0.0» dr dt at5=0.0J 

oiU)=i.0; oi(2)=0.5; oi(3)=0.0;"oiU)=-0.5; oi(5)=-i.0; 

o2(l)=1.0; o2(2)=-0.5; o2(3)=-1.0; o2(4)=-0.5; o2(5)=1.0; 

/*getship, when invoked, extracts a node from the pool of 
available and returns a pointer value pointing to that 
node. It puts an error message if there is no available 
node*/ 

getship :procedure returns (fixed bin(7)); 

/* del */ 

%include 'globals .inp 
if availship=nil then do; 

put skip list('No more available ship nodes'); 
return (nil ) ; 
end /*do*/; 

else do>* 

node=availship; 

availship=link_ship(availship ) ; 
end /*if*/; 
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return(node) » 
end getship; 



/♦getwake does the same function as getship except for the 
operations made are on wake nodes’**/ d 

getwaketprocedure returns (fixed hin(7)); 

/* del V 

%include 'glohals . inp ' ; 

if availwake=nil then do» 

put skip listC'No more available wake nodes'); 
return (0); 
end /’^‘do’**/; 

else do; 

node=availwake; 

availwake=link_wake(availwake ) ; 
end /*if*/; 
return(node) ; 
end getwake; 

end initvars; 
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APPENDIX C 



SIMULATION SYSTEM MODULE PROGRAM LISTINGS 



A. TACTICAL. PLI 



/* 

Prog Name 
Date 

Written by 
For 

Advisor 

Purpose : This external routine calculates and 

updates the positions of the ships in the tactical area 
and the future positions of the ships that belong to 
enemy ships circular linked list pointed to by ptr(own), 
and 



TACTICAL. PLI 
December S3 
M. Kadri Ozyurt 
Thesis 

Professor Kodres 

This external routine calculates 



and calculates the trajectory of the travelling projectile 
if fired 
*/ 



TACTICAL :PROCEDURE EXTERNAL*, 



DCL 

%INCLUDE 'CONST. INP'; 
%INCLUDE 'GLOBALS.INP'; 



/♦following sequence of code updates the present positions 
of the ships in the tactical area*/ 

DO 1=2 TO NUMBERSHIPS; 

7X TARGET = SPEED(I) * SIND (COURSEU)); 

VI'TARGET = SPEED(I) * COSD (COURSE(D); 

VX'rEL = VX TARGET - VX_0WN; 

VT'REL = VI'TARGET - VY OWN; 

WAKE PTR = PTR(I); 
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I* 



m 



X WAKE(WAKE PTR) = X(I ); 

Y'¥AKE(WAKE*PTR) - Y(I); 
xli) = x(i)“+ vx REL # dt; 

Y(I) = Y(I) + VY_REL dt; 

PTR(I) = LINK WAKE(WAKE PTR); /^'ptrU) points to^/ 

IF COUNT(I) <"4 THEN “ /* the oldest wake*/ . 

COUNTd )=COUNT(I )+i; 

/*END IF*/ 

END /*DO*/; 



/*calculat ing the future positions (aim points) starts 
here by using the least squares method with legendre 
polynomials. The coefficients are pre-calculated according 
to the fifth second including the zeroth second*/ 

FILTERING: 

TARGET = PTR (OWN); 

done=true; 

IF ~(target=nil) then 
done=false; 

/*end if*/ 

DO WHILE ("DONE); 

IF C0UNT(TARGET)=4 THEN 

begin; 



AX SUM = X( TARGET) 

BX SUM = X (TARGET) 

CX SUM = X(TAEGET) 

AY" SUM = Y (TARGET) 

BY SUM = Y( TARGET) 

CY SUM = Y (TARGET) 

WAKE PTR = PTR (TARGET); 

J = i; 

DO WHILE (LINK WAKE(WAKE PTR) 



* 



00 ; /*Leg. poly. 0 deg.*/ 
01(5);/* " " 1 " */ 

02(5);/* " " 2 ’’ */ 

00; 

01(5); 

02(5); 



WHILE 

AX_SUM = AX_SUM + 

BX_SUM = BX SUM + 

CX_SUM = CX SUM + 

AY SUM = AY_SUM + 
by" SUM = BY SUM + 

CY"SUM = CY^SUM + 

WAKE PTR=LINK WAKE (WAKE_PTR ) ; 
J = j + 1 ; 

END /*D0*/; 



'= PTR (TARGET)) ; 



X WAKE (WAKE_ PTR) 
X WAKE (WAKE PTR) 
X WAKE(WAKEdTR) 
Y"WAKE(WAKE PTR) 
Y WAKE(WAKE_PTR) 
Y~WAKE(WAKE PTR) 



* 



00; 

oi(j); 

02(j); 

00 ; 

oi(j); 

02(J) ; 



AX = AX SUM / 5 .; 

BX = 2.0 * BX SUM / 5.; 

CX = 2.0 * CX“SUM / 7.; 

AY = AY_SUM / 5.; 

BY = 2.0 * BY_SUM / 5.; 

CY = 2.0 * CY_SUM / 7.; 
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X_AT5. = AX - l.S^f'BX + 3.5=«‘CX; 
Y_AT5 = AY - 1.5*BY + 3.5*CY; 



INCONVENIANCE: 

/*this ‘begin ‘block is inserted to avoid the complications 
which might arise from the automatic conversions*/ 

begin; 

DCL (XSTEP.YSTEP) FIXED, 

(XF,YF,RSQD) FLOAT; 

IF (ABS (X_AT5)>T0P) l(ABS(Y AT5)>T0P) THEN 
RSQD=-1.0; 

ELSE do; 

XSTEP=BINARYU_AT5); 

YSTEP=BINARY(Y_AT5) ; 

XF=FLOAT(XSTEP); 

YF=FLOAT(YSTEP) ; 

rsqd=xf*xf+yf*yf; 

END /*IF*/; 

IF (RSQD<0.0)1 (RSQD>MAXSQ) THEN 
R=0.0 ; 

R=SQRT(RSQD) ; 

/*END IF*/ 

END INCONVENIANCE; 

IF (R=0.0) ! (R>RMAX) THEN DO ; 

X_AIM(TARGET)=0.0; 

Y AIM(TAHGET j=0.0; 

END 7*DO*/; 

ELSE do; 

ALPHA = ASIN',G*R/VM**2; / 2.0; /*IN RADS*/ 
VR = VM * COS (ALPHA); 

T_PRIME = R / VR; 

DX DT ATS = 3.0*CX - 0.5*BX; 

DYIdt“AT5 = 3.0*CY - 0.5*BY; 

DR DT"AT5 = (X_AT5 * DX DT_AT5 + 

Y ATS *"DY_DT ATS) / R; 

T OF = (R + DR DT'ATS * T_PRIME) / VR; 
X>IM (TARGET) = X_ATS + DX DT ATS * T_0F; 
Y_AIM(TARGET) = Y ATS + DY“DT‘ATS * T OF; 
END /*IF*/; 

END /*IF*/; 

TARGET=LINK SEIP(TARGET) ; /*next target?*/ 

IF TARGET=PTR(OWN) TEEN 

done=true; 

/*END IF*/ 

END /*DO*/; 
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ROUNDTRACK: 

/*the ballistic calculations start here*/ 
IT (FIRED) THEN 

begin; 

VX_RSL = VX ROUND - VX_0WN; 
VY_REL = VY’ROUND - VY_OWN ; 

X GUN = X GUN + VX REL * DT; 
yIgUN = yIgUN + VY REL * DT ; 

T = T - dt; 

IF T<=0 THEN do; 

PUT LIST(''*G'); 

FIRED = false; 

END /’i'lFV; 

END /*IFV; 



END tactical; 
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B. DISPLAT. PLI 



/* 

Prog Name : DISPLAY. PLI 

Date : December 83 

Written by : M. Kadri Ozyurt 

For : Thesis ‘ 

Advisor : Professor Kodres 

Purpose : This routine first puts the time in 

hours, minutes, and seconds. The control then proceeds to 
call DRAW subroutine in an iterative loop to erase the old 
objects. It then calculates the positions of the objects 
relative to either ownship or the ship that has been 
targeted according to MAGNIFIED .Then it calls DRAW to 
display the objects. 

*/ 



DISPLAY:PROCEDURE EXTERNAL; 
/«DCLV 

%INCLUDE 'CONST. INP'; 
%INCLUDE 'GLOBALS.INP'; 



PUT LIST /CENTER ALPHA MODE*/ 
.IF MINUTES=0 THEN 

begin; 

PUT LIST ( '"[= %') ; 

PUT EDIT (HOURS) (F(2) ); 

HOURS = HOURS+i; 

IP H0URS=24 THEN 
HOURS = 0 ; 

/*END IF*/ 

END /*IF*/; 

IF SECONDS=0 THEN 

begin; 

PUT LIST ( '"[= ( ') ; 

PUT EDIT (MINUTES)(F(2)); 

MINUTES = MINUTES+i; 

IF MINUTES=60 THEN 
MINUTES = 0 ; 

/*END IF*/ 

END /*IF*/; 

PUT LIST ('"[= +'); 

PUT EDIT (SECONDS ) (F(2) ) ; 
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SECONDS = SECONDS+i; 

IE SECONDS=60 TEEN 
SECONDS = 0 ; 

/’i'END IFV 

PUT LIST( /*H0ME CURSOR’*'/ 

/♦the following calls erase the objects from the screen*/ 
D=0; 

DO 1=1 TO NUMEERSHIPS; 

CALL DRAW(OBJECT(I) .U,OBJECT(I).V,D); 

CALL DRAW(OBJECT(I ).UU WAKE .OBJECT (I ) .VV WAKE.D); 
CALL DRAW(OBJECT(I) .U AIM .OBJECT { I ) .V AIM.D); 

END /*DOV; 

CALL DRAW(OBJECT(l).U GUN .OBJECT ( 1 ). V GUN.D); 



/♦the following sequence converts the coordinates of the 
objects to the grid coordinates of the screen and generates 
the sequences of the coordinates for the objects*/ 

DO 1=1 TO NUMBERSHIPS; 

XX=A+BINARI{(X(I)-X OFFSET )/M); 

YI=B+BINARY((Y(I )-Y"OFFSET)/M) ; 

IF (FRIEND(D) THEN 

CALL GENFRIEND{XX,YY.0BJECT(I) .U.OBJECT(I) .7 ) ; 

ELSE 

CALL GENFOE(XX.YY.OBJECT(I ) .U. OBJECT (I) .7) ; 

/♦END IF*/ 

CALL GENWAKE(XX.YY.OBJECT(I ) .U WAKE .OBJECT ( I ) .7_WAKE ) 
XX=A+BINARY( (X WAKE ( PTR ( I ) )-X OFFSET)/M); 
YY=E+BINARY((Y_WAKE(PTR(I))-Y OFFSET) /M) J 
IF COUNT(I)=4 THEN 

CALL GENWAKE{XX.YY. OBJECT ( I ).UU WAKE. 

0EJECT(I).77 WAKE); 
XX=A+BINARY({X AIM(I)-X OFFSET )/M)‘, 

yy=b+binary((y"aim{i )-y offset )/m); 

IF '((XX=A)&(YY=B)) THEN 
IF I— 1 THEN 

CALL GENOURAIM(XX,YY.OBJECT(I) .U AIM, 

OBJECT(i) .7_AIM) ; 



ELSE 

CALL GENAlM(XX,YY,OBJECT(I) .U AIM, 

OBJECT (I ) ,7_AIM) ; 



/♦END IF*/ 

/♦END IF*/ 

END /*do*/; 

XX=A+BINARY( (X GUN-X OFFSET )/M); 

YY=B+BINARY( (YIGUN-Y OFFSET) /M) ,* 

CALL GENGUN(XX,YY,OBjECT(l).U GUN .OBJECT (l ) .7 GUN); 
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/=*‘the following sequence draws the objects by calling the 
routine DRAW’*'/ 

D=l? 

DO 1=1 TO NUMBERSHIPS; 

CALL DRAW (OBJECT (I ) .U.OBJECT(I) .V,D) ; 

CALL DRAW(OBJECTd) .U WAKE .OBJECT (I ). V WAKE.D); 

IF (ENGAGED) THEN CALL DRAW (OBJECT ( I ). U AIM, 



END /*DOV; 

IF FIRED THEN CALL DRAW (OBJECT ( 1 ) .U_GUN .OBJECT (1 ). V_GUN ,D ) 

/’*' the following procedures produce the sequence of screen 
grid coordinates for various objects*/ 

GENFRIEND:PROC(X,Y,U,V) ; 



OBJECT(I) .7_AIM,D) ,* 



DCL 



(X.I) FIXED 3IN(15), 

(U.V) (0 :10) FIXED BIN(15) ; 



u( 0 )=x; 



V(0)=Y-8; 
V(1 )=Y-3; 
V(2)=Y+3; 
V(3)=Y+8; 
V(4)=Y+3; 
V(5)=Y-3; 
V(6)=Y-8; 
V(7)=-1; 



D(l)=X-6; 

U(2)=X-6; 

U(3)=x; 



U(4)=X+6; 

u(5)=x+e; 

u(6)=x; 



u(7)=-i; 



END genfriend; 



GENFOE:PROC(X,Y,D,V); 



DCL 



(X.Y) FIXED BIN(15). 
(U,V)(0:10) FIXED BIN(15); 



U(3)=X+8; 

U(4)=-1; 



u( 0 )=x+ 8 ; 

u(i)=x-8; 

u( 2 )=x; 



V(0)=Y-4; 

V(l)=Y-4; 

v(2)=Y+s; 

V(3)=Y-4; 

V(4)=-U 



END genfoe; 
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GENWAKE:PROC(X,Y,U,V); 



DCL 


(X,Y) FIXED BIN(15), 
(U,V)(0:10) FIXED BIN 15); 




u(0)=x; 


v(0)=y; 




u(i)=x; 


v(i)=y; 




u( 2 )=-i; 


v( 2 )=-i; 





END (jenwake; 

GENOURAIM:PROC(X,Y,a,V) ; 



DCL 

(X,Y) FIXED BIN(15) , 
(U,V)(0;10) FIXED EIN(15); 



u( 0 )=x+ 8 ; 


v(0)=y; 


u(i)=x-8; 


v(i)=y; 


u( 2 )=x; 


v(2)=y; 


u(3)=x; 


V(3)=Y“8; 


u(4)=x; 

u(5)=-i; 


V(4)=Y+8; 


v(5)=-i; 


END GENOURAIt-; 


GENAIM:PR0C(X,Y,U 


,v); 


DCL 


(X,Y) FIXED BIN(15), 


(U,7)(0 


:10) FIXED BIN(15) 


U(0)=X+4; 


V(0)=Y+4; 


U(l)=X-4*, 


V(l)=Y-4; 


u( 2 )=x; 


v(2)=y; 


U(3)=X+4; 


V(3)=Y-4; 


U(4)=X-4; 


V(4)=Y+4; 


U(5)=-1; 


v(5)=-i; 



END genaim; 
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GENGUN:PROC(X ,Y,U,7); 

DCL 

(X,Y) FIXED BIN(15), 
(U,V)(0:10) FIXED EINUS); 



U(0)=X+i; 

u(i)=x+i; 

u( 2 )=x-i; 

u(3)=x-i; 

u(4)=x+i; 

u(5)=-i; 



v(0)=Y-i; 

v(i)=Y+i; 

7(2)=Y+i; 

v(3)=Y-i; 

V(4)=Y-i; 

v(5)=-i; 



END gengun; 



/’S'this procedure receives two arrays and a key variable as 
parairaters, and either displays the object or erases it*/ 
DRA¥:PR0C(U,7,D) EXTERNAL; 

DCL 

(U,7)(0:10) FIXED BIN(15), 

(I,J,H,D) FIXED BIN(7), 

RUB CHAR(l) EXTERNAL, 

C(7) CHAR(l), 

Zl(0:3) CEAR(l) BASED(P), 

Z(0:3) BIT(0), 

p pointer; 

P=ADDR(Z); /*Z and Z1 share same location hereon*/ 

1 = 0 ; 

DO WHILE (Kll); 

IF (D=l) 

/*enter vector set level wnite*/ 

THEN PUT LIST( ''']''[a'); 

/*enter vector set level black*/ 

ELSE PUT LIST( "']"[',RUB); 

/♦END IF*/ 

DO H=1 TO 5 ; 

IF (U(I)<0) THEN do; 

PUT LIST( '''m''x''[= '); 

RETURN ; 

END /*IF*/; 

/♦this call translates the coordinates to the 
stream of bits*/ 

CALL TRANSLATE(U( I) .7(1) ,Z) ; 

1=1+1; 
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/♦this put statement puts out the hit streams 
as being characters^/ 

PUT EDIT((Z1-J) DO J=0 TO 3 ) ) (4A(D); 

END /♦DO*/; 

/♦the following two statements get the status of 
the screen. The status is not sent back until .the 
screen is ready.*/ 

PUT LIST('^rE'); /*HANDSHAKE*/ 

GET EDIT((C(J) DO J=1 TO 7))(7A(1)); 

END /*DO*/; 

PUT LIST('''M''X'); /*BACK TO ALPHA*/ 

TRANSLATE;PROCEDURE(X,Y,Z) i 
DECLARE (X.Y) FIXED BIN(15), 

Z'.0:3) BIT(8), 

T FIXED 3IN(15). 

SI BIT (16), 

SS BIT(7). 

S BIT (8). 

I FIXED BIN(7); 

I = DIVIDE(Y,32,8); 

SS=BIT(I,7) ; 

s='0'B 11 ss; 

Z( 0 ) = ' 00100000 'B I s; 

T = Y “ (Y/32) * 32; 

SI = BIT (T,16); 

S = SUBSTR(S1.8,8); 
z(i) = '0ii00000'B ! s; 

I = DIVIDE (X,32,8); 

SS=BIT(I , 7 ) ; 

s='0'B 11 ss; 

Z(2) = '00100000'B ! S; 

T = X - (X/32) * 32; 

SI = BIT(T.16); 

S = SUBSTR (SI, 8. 8); 

Z(3) = '01000000'B ! S; 

END translate; 

END draw; 

END display; 
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C. STATUS. PLI 



Prog Name 
Date 

Written by 
For 



STATUS. PLI 
December 83 
M. Kadri Ozyurt 
Thesis 



Advisor ; Professor Kodres 

Purpose : this routine calls the assembly routine 

KEYBOARD to read the keyboard to set the boolean variables 
used in other routines 
*/ 



STATUS tPROCEDURE EXTERNAL; 



DCL 

%INCLUDE 'CONST. INP'; 
%INCLUDE 'GL03ALS.INP'; 



CALL KEYBOARD (KEY ); 

IF (KEY='Q') ! (KEY='q') THEN 

stop; 

ELSE IF (KEY='E') ! (KEY='e') THEN 
ENGAGED = TRUE; 

ELSE IF ENGAGED & (( RANK (KEY )>48 )& (RANK (K EY )<=57 ) ) 
THEN begin; 

I=RANK(KEY)-48; 

IF NUMBER (I )=^ TEEN 

LINK SHIP(I)=i; 

ELSE IF FRIEND(I) THEN DO ; 

CALL REMOVENODE (LINK_SHIP (OWN ) ,I ) ; 

CALL ADDNODE(PTR(OWN ) ,1) ; 

friend(i)=false; 

end; 

PTR(OWN) = i; 

end; 

ELSE IF (KEY='R') ! (KSY='r') THEN 
engaged=false; 

ELSE IF (KEY='M') 1(KEY = 'iti') THEN DO; 
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/♦set the scale tc 1/200V 

magnified=true; 

M=200.0; 

IE ENGAGED THEN DO; 

/♦set reference as the target^/ 
X_OrFSET=X(PTR(OWN)); 

Y OFFSET=Y(PTR(OWN) ) ; 

END /♦DO^/; 

ELS E DO ; 

/♦ownship is the reference^/ 

X OFFSET=0.0; 

Y_OFFSET=0.0; 

END /♦DO^/; 

/♦END IF^/ 

end; 

ELSE IF (KEY='T') l(KSY='t') THEN DO; 
/♦set the scale "back to normal (l/50)^/ 

magnified=false; 

M=50.0; 

X OFFSET=0.0; 

Y"OFFSET=0.0; 

END /♦DO^/;" 

ELSE IF (KEY='F') ! (KET='f ') THEN 
FIRED = true; 

ELSE IF (KEY='D') ! (KEY='d') THEN 

erroron=true; 

ELSE IF (KEY='S ') ! (KEY = 's') THEN 
SIGNAL ERROR(l); 

/♦END IF^/ 

KEY='0'; 



/♦this routine removes the node pointed hy QQ from 
circular linked linked list pointed hy ??♦/ 
REMOVENODE:PROC(PP,QQ); 

DCL 

(PP.QQ) FIXED BIN(7) ; 

%I NCLUDE 'GLOBALS . I NP ' ; 



p=pp; 

P=LINK SHIP(P); 

DO WHILE ('(LINK_SHIP(P)=QQ) ); 
P=LINK_SHIP(P); 

end; 

LINK SHIP(P)=LINK SHIP(QQ); 

end; 



the 
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/*this routine adds a node pointed by QQ to the 
linked list by PP#/ 

ADDNODE:PROC(PP,QQ) ; 

DCL 

(PP,QQ) FIXED PIN(7); 
%INCLUDE'GLOBALS.INP'; 



p=pp; 

P=LINK SHIP(P); 

DO WHILE (“(LINK SHIP ( P ) =PP ) ) ; 
P=LINK_SHIP(P); 

END } 

link_ship(p)=oq; 

LINK SHIP(QQ)=PP; 

end; 

END status; 



circular 
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D. IDLE.PLI 



/* 

Prog Name 
Date 

Written ty 
For 

Advisor 

Purpose 

output to get 



IDLE.PLI 
December 83 
M. Kadri Ozyurt 
Thesis 

Professor Kcdres 
This routine reads the 
the velocity vectors of 
and the gun information 



selected ship, 
elevation. It then converts this information to 
values. It calculates ownship speed which will 



A/D converter 
ownship and a 
as azimuth and 
real world 
be used to 



find relative speeds later. It then computes the maximum 
range, cartesian coordinates of the splash point, and time 
of flight corresponding to the current gun position 



IDLEtPROCEDURE EXTERNAL; 



/# 

DCL 

#/ 

^INCLUDE 'CONST. INP'; 

%INCLUDE 'GLOBALS.INP'; 

DO D=0 TO 5; 

CALL ATOD (D,ARG(D))*, 

END /’i'DOV; 

/*at this point the A/D output values are fixed bin(7) 
values. The following sequence converts those to fixed 
decimal valuesV 

COURSE(OWN)=ARG(0) ; 

SPEED(0WN )=ARG(4) ; 

C0URSE(KN0WN)=ARG(2) ; 

SPEED(KNOWN )=ARG(3) ; 

AZ=ARG(1); 

ALT=ARG(5) ; 

/*the following sequence converts A/D values to real time 
values by using appropriate proportionality constants*/ 
COURSE(OWN) = COURSE(OWN) * K; 
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COURSE(KNOWN) = COURSE (KNOWN ) K; 

AZ = AZ * K> 

IF COURSE(OWN)<0.0 THEN 

COURSE(OWN) = COURSE. OWN) + TWO„FI ; 

IF COURSE(KNOWN)<0.0 THEN 

COURSE(KNOWN) = COURSE( KNOWN ) + TWO_PI ; 

IF AZ<0.0 THEN 

AZ = AZ + TWO_Pi; 

IF ALT>90.0 THEN 
ALT = 90.0; 

SPEED(OWN) = speed(own)/l; 

SPEED (KNOWN) = SPEED KNOWN) / L; 

/^ownship speed computations*/ 

VX OWN = SPEED(OWN) * SI ND ( COURSE (OWN )) ; 

VI_OWN = SPEED(OWN) * C03D(C0URSE (OWN ) ) ; 

/*when not have fired, the following makes the tallistic 
computations*/ 

IF ~ FIRED THEN 

begin; 

T_OF = 2.0 # VM * SIND(ALT) / G; 

VR = VM * COSD(ALT); 

R = VR * T of; 

X_AIM(OWN) = R * SIND(AZ); 

Y AIM(OWN) = R * COSD(AZ); 

X'GUN = 0 . 0 ; 

tIgun = 0 . 0 ; 

VX ROU'ND = VR * SIND(AZ) ; 

VI’ROUND = VR * COSD(AZ); 

T = T of; 

END /*if*7; 

END idle; 
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APP|NDIX p 

REAL TIME EXECUTIVE MODULE LISTINGS 



A. ARBITER. A86 



;Prog Name : ARBITER .A86 

JDate : December 83 

jWritten by : M. Kadri- Ozyurt 

;Eor : Thesis 

JAdvisor : Professor Kodres 

;Purpose : This program contains all the assembly 

Jroutines used by the simulation system. It initializes all 
•programmable hardware components, responds to the timing 
•interrupts, and increment the FOURTEEVC used throughout the 
•simulation model program. Upon receiving interrupt 
•requests , it performs process switching by storing the 
; state of interrupted process in the stack area allocated 
•for the processes and by restoring the highest ready 
•process given by SCHEDULER 



;globals 



DGROUP GROUP 
FOURTHEVC DSEG 
FOURTHEVCl DW 



FOURTHEVC ,CURRENTPROC 
COMMON 
0 



CURRENTPROC DSEG COMMON 
CURRENTPROCl DB 4 



CSEG 

EXTRN 


SCHEDULE: FAR 


EXTRN 


PI :FAR 


EXTRN 


P2:FAR 


EXTRN 


P3:FAR 


EXTRN 


P4:FAR 


PUBLIC 


ARBITER 


PUBLIC 


STORESTATUS 


PUBLIC 


RINGBELL 


PUBLIC 


XEYBOARD 


PUBLIC 


ATOD 


PUBLIC 


SUSPEND 


PUBLIC 


RESUME 
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; EQUATES 








INTI 


EQU 


S4H 


JINTRl JUMP ADDR. 


INT3 


EQU 


8CH 


;INTR3 JUMP ADDRESS 


PICl 


EQU 


0C0H 


;PIC COMMAND OUTPUT PORTl 


PIC2 


EQU 


0C2H 


;PIC COMMAND OUTPUT P0RT2 


ICWl 


EQU 


13E 


;PIC COMMAND WORDl 


ICW2 


EQU 


20H 


;PIC COMMAND W0RD2 


ICW4 


EQU 


0DH 


;PIC COMMAND WORD4 


MASKl 


EQU 


0FDH 


;PIC MASK BYTE 


SOI 


EQU 


20H 


JEND-OF-INTERRUPT BYTE 


CNTRl 


EQU 


50 H 


;PIT MODE CONTROL BY^ 


CNTR2 


EQU 


60E 


> 


PORTC 


EQU 


0D6E 


;PIT CONTROL PORT 


COUNT 


EQU 


0D2H 


;PIT COUNT # OUTPUT PORT 


CNTRLO 


EQU 


00H 


;PIT COUNT # LO BYTE 


CNTHHI 


EQU 


96E 


;PIT COUNT # HI BYTE 


READWR 


EQU 


37H 




RXRDY 


EQU 


02E 


JUSART STATUS MASK(READ) 


TXRDT 


EQU 


01E 


;USART STATUS MASK(WRITE) 


PORTIO 


EQU 


0D8H 


;USART I/O PORT 


PORTST 


EQU 


0DAH 


;USART STATUS PORT 


SEGC0N7 


EQU 


0D000E 


;a/d convtr port segment 


OEECONV 


EQU 


0F700H 


;a/d convtr port offset 


STACKSIZE EQU 


100H 




LF 


EQU 


0AH 




CR 


EQU 


0DH 




BEL 


EQU 


07 H 




FS 


EQU 


ICE 




ESC 


EQU 


IBH 




FF 


EQU 


0CH 




CAN 


EQU 


18H 




FALSE 


EQU 


0 




TRUE 

• 


EQU 


NOT FALSE 




• 

ARBITER: 










PUSH 


DS 






CLI 




JDI SABLE INTR'S 




MOV 


AX,0 






MOV 


DS,AX 


;set segreg to 0 




MOV 


BX,INT1 






MOV 


WORD PTR [BX] , OFFSET 


PROC0 ;INT1 JMP address 




INC 


BX 






INC 


BX 






MOV 


WORD PTR [BX] ,CS 






POP 


DS 






MOV 


BX, OFFSET STACKTBL+STACKSIZE-2 




MOV 


CS: [BX] ,CS 






ADD 


BX, STACKSIZE 
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m 




PROC0: 



MOV 


CS : [BX] ,CS 




ADD 


EX.STACKSIZE 




MOV 


CS: [BX] ,CS 




ADD 


BX,STACKSIZE 




MOV 


CS: [BX] ,CS 




CLI 

MOV 


AL.ICWl 


;INIT. PIC TO 


OUT 


PIC1,AL 


; EDGE-TRIG., SINGLE PIC 


MOV 


AL.ICW2 




OUT 


PIC2,AL 


; INTI ADDR IS 04H 


MOV 


AL ,ICW4 




OUT 


PIC2.AL 


; NOT F. NESTED, NORM. EOI 


STI 




* 


MOV 


AL.MASKl 




OUT 


PIC2,AL ;ONLY 


INTI IS ALLOWED 


MOV 


AL,CNTR1 


;INIT. PIT 


OUT 


PORTC ,AL 


; SELECT MODE 0 ,CNTR 1 


MOV 


AL,CNTRLO 


; CLK FREQ. IS 153.6 KHZ 
;COUNT-DOWN VALUE 9600H 


OUT 


COUNT, AL 


; WHICH GIVES AN INTR AT 


MOV 


AL,CNTR2 




OUT 


PORTC, AL 




MOV 


AL,CNTREI 


; every forth of a sec. 


OUT 


COUNT, AL 




MOV 


AL,READWR 




OUT 


PORTST,AL 




MOV 


AX,CS 




MOV 


SS ,AX 


;SET STACK SEG. TO CODE 


MOV 


BP, STACK SIZE 




MOV 


SP,STACKTBL [BP] 




JMP 


P4 





PUSH 


AX 






PUSH 


BX 






PUSH 


CX 






MOV 


AL,CNTR2 






OUT 


PORTC ,AL 


PRESET COUNTER 




MOV 


AL,CNTRHI 


;reset the cntr. 




OUT 


COUNT, AL 






MOV 


AL,EOI 


;reset pic 




OUT 


PIC1,AL 






ADD 


SP,6 


;sp -> interrupted 


IP 


POP 


BX 


;bx-> 


IP 


POP 


AX 


;ax-> 


CS 


POP 


CX 


;SP->INTERRUPTED 


IP 


PUSH 


AX 


;PUSH 


CS 


PUSH 


BX 


;pusH 


IP 


PUSH 


CX 
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;SP-> PUSHED cx 



SUB 

POP 

POP 

POP 

INC 

JMP 

STORESTATUS : 

DEC 

DEC 

PUSH 

ADD 

POP 

PUSH 

PUSH 

DEC 

DEC 

POP 

PUSHF 

CLI 



SP,6 

CX 

BX 

AX 

EOURTHEVCl 

STORESTATUSl 

SP 

SP 

AX 

SP,4 

AX 

CS' 

AX 

SP 

SP 

AX 



;REST0RE BX 

;restore ax 



;ax->interrupted ip 



; RESTORE AX 



STORESTATUSl : 

PUSH AX ! 



OUTl: 



0UT2: 



PUSH BX 
PUSH BP ! PUSH SI 
CALL SCHEDULE 

MOV NEWPROC.AL 

MOV AL.CURRENTPROCl 

CMP AL,1 

JNZ OUTl 

MOV BP,1 

JMP OUT4 

CMP AL,2 

JNZ 0UT2 

MOV BP,STACKSIZE+1 

JMP OUT4 

CMP AL,3 

JNZ 0UT3 

MOV BP,2*STAC5SIZE+1 



! PUSH CX ! PUSH 
! PUSH DI ! PUSH 



OUT 3: 



OUT4: 



OUTS; 



JMP 0UT4 

CMP AL,4 

JNZ OUTS 

MOV BP,3=^STACKSIZE+1 

JMP OUT4 

ADD BP, OFFSET STACKTBL 

CMP SP.BP 

JNA OUTS 

DEC BP 

MOV [BP] ,SP 

JMP LOADPROC 

ADD AL.30H 

MOV OUTSAL.AL 



MOV DX, OFFSET 0UT5MESS 

JMP ERRORMESS 



DX 

ES 
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OUT 6 



LOADPROC ; 

LOUTl: 

L0UT2: 

L0UT3: 

L0UT4: 

RETURNPT: 



ADD AL.30H 

MOV 0UT6AL,AL 

MOV DX, OFFSET 0UT6MESS 

JMP ERRORMESS 

MOV AL,NEWPROC 

CMP AL,1 

JNZ LOUTl 

MOV BP,0 

JMP RETURNPT 

CMP AL,2 

JNZ L0UT2 

MOV BP,STACKSIZE 

JMP RETURNPT 

CMP AL,3 

JNZ L0UT3 

MOV BP,2=«'STACKSIZE 

JMP RETURNPT 

CMP AL.4 

JNZ L0UT4 

MOV BP,3’!'STACKSIZE 

JMP RETURNPT 

ADD AL,30H 

MOV LOUT4AL.AL 

MOV DX, OFFSET L0UT4MESS 

JMP ERRORMESS 

MOV CURRENTPROCl ,AL 

MOV SP,STACKTBL [BP] 

POP ES ! POP DI ! POP SI ! POP BP 

POP DX I FOP CX ! POP BX ! POP AX 

POPF 

STI 

RETF 



JTHIS ROUTINE MAKES A SYSYTEM CALL TO PUT OUT ERROR 

;messages 

ERRORMESS: 



MOV 


CL, 9 


I NT 


224 


MOV 


CL,0 


MOV 


DL.l 


INT 


224 


RET 
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;the stack areas and variable definitions 



STACKTBL: 





DW 


OFFSET STACKTBL+STACKSIZE-22 






RS 


STACKSIZE-8 






DW 


FALSE 






DW 


OFFSET PI 






RS 


2 






DW 


OFFSET STACKTBL+2’»'STACKSIZE-22 






RS 


STACKSIZE-8 






DW 


FALSE 






DW 


OFFSET P2 






RS 


2 






DW 


OFFSET STACKTBL+3=«'STACKSIZE-22 






RS 


STACKSIZE-8 






DW 


FALSE 






DW 


OFFSET P3 






RS 


2 






DW 


OFFSET STACKTBL+4»'STACKSIZE-22 






RS 


STACKSIZE-8 






DW 


FALSE 






DW 


OFFSET P4 






RS 


2 




NEWPROC 


DB 


0 




0UT5MESS 


DB 


FS,ESC,FF,CAN 






DB 


'RETURN FROM OUTS. AN UNKNOWN CURRENT 


PROCEDURE: ' 


OUT SAL 


DB 






0UT6MESS 


DB 


FS,ESC,FF,CAN 






DB 


'RETURN FROM 0UT6. STACK OVERFLOW FOR 


THE PROC. :' 


0UT6AL 


DB 


0. '$',0 




LOUT4MESS 


DB 


FS,ESC,FF,CAN 






DB 


'RETURN FROM LOUT4. AN UNKNOWN NEW PROCEDURE:' 


LOUT4AL 


DB 


0,'$'.0 





END 
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B. AWAIT. PLI 



/* 

Prog Name 
Date 

Written ty 
For 

Advisor 
Purpose 
the threshold 



AWAIT. PLI 
December 83 
M. Kadri Ozyurt 
Thesis 

Professor Kodres 

This synchronization primitive checks 
value for the calling process by comparing 



the corresponding threshold value with FOURTHEVC and 
returns the control either to the calling process, if its 
threshold value is equal to and greater than FOURTHEVC, or 
else transfers the control to ARBITER. A86 

if-/ 



await: procedure( i ) > 

del threshold (0:2 ) fixed bin(15) external, 

storestatus entry, 
fourthevc fixed bin(15) external , 
i fixed bin(7); 

if ( f ourthevc>=threshold ( i-1 ) ) then return; 

else call storestatus; 
end await; 
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C. SCHEDULE. PLI 



Naire 



/* 

Frog 
Date 
Written 
For 

Advisor 

Purpose 

compares 

processes 



by 



the 
PI 



SCHEDULE. PLI 
December 83 
M. Kadri Ozyurt 
Thesis 

Professor Kodres 

This synchronization primitive 
threshold values corresponding to the 
through P3 , beginning from FI, to FOURTHEVC 
and returns the name of the first one which is equal to or 
greater than that value. If non of the processes meet this 
conditions then P4 is returned. 



schedule: procedure returns (fixed bin(7))> 
del threshold(0 :2) fixed bin(15) external, 

fourthevc fixed bin(15) external, 
i fixed bin(7); 
do i=0 to 2 ; 

if (f ourthevc>=threshold( i) ) then return (i+l)> 

end; 

return (4); 
end schedule; 
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D. TBRESB.PLI 



/♦ 

Prog Name : TBRESB.PLI 

Date : December 83 

Written by : M. Kadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose : This synchronization primitive 

receives a pointer to the calling process and increments 
the corresponding threshold value by an assigned amount 



TBRESB: PROC(i); 

DCL TBRESHOLD(0:2)FIXED EIN(15) EXTERNAL, 
i FIXED BIN (7); 

IF (i=l) TBEN TBRESBOLD(0)=TBRESBOLD(0) + i; 
IF (i=2) THEN TBRESHOLD( 1 ) =THRESHOLD ( 1 ) + 4? 
IF (i=3) THEN THRESH0LD(2) =THRESH0LD(2 )+4; 

return; 

END thresh; 
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E. Pl.PLI 



/* 

Prog Name : Pl.PLI 

Date : December 83 

Written hy : M. Kadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose : This process is 

infinitive loop. Once entered, it first 
to see if FOURTHEVC is equal to or 
threshold value. If it is, then the control proceeds 
call TACTICAL . PLI . The last call in the loop is 
THRESH. PLI to increment its threshold value. In the 



"basically an 
call AWAIT. PLI 
greater than 



its 

to 

to 

next 



iteration, the 
threshold value 
*/ 



control will 
is greater than 



not come 
FORTHEVC. 



back since its 



PI: procedure; 

DCL AWAIT ENTRY (FIXED BIN (7)), 
THRESH ENTRY (FIXED 3IN(7)), 
A FIXED BIN(7), 

TACTICAL entry; 



A=i; 

DO WHILE ( 'I'B) ; 

CALL AWAIT (l); 
CALL tactical; 

■CALL THRESH (1); 

END 

END Pi; 
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I. P2.FLI 



/* 

Pro^ Name 
Date 
Written 
For 

Advisor 
Purpose 
cal to 
call is 



P2.PLI 
December 63 
by ; M. Xadri Ozyurt 

Thesis 

Professor Kodres 
•The purpose of this process is 
that of Pl.PLI with the exception that the 
to DISPLAY. PLI 



idecti- 

second 



P2: procedure; 

DCL AWAIT ENTRY (FIXED BIN(7)), 
THRESH ENTRY (FIXED BIN(7)), 
A FIXED BIN (7), 

DISPLAY entry; 



A=2; 

DO WHILE ('I'B); 

CALL AWAIT (2); 
CALL display; 
CALL THRESH (2); 
END /*DOV; 

END P2; 
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p' 





a. P3.PLI 



/* 

Prog Name 
Date 

Written ty 
For 

Advisor 

Purpose 

same as Pl.PLI 
to STATUS. PLI 

ir/ 



: P3.PLI 
: December 83 
: M. Kadri Ozyurt 
: Thesis 

: Professor Kodres 

: The purpose of this process is the 
with the exception that the second call is 



P3: procedure; 

DCL AWAIT ENTRY (FIXED BIN(7)), 
THRESH ENTRY (FIXED BIN(7)), 
A FIXED BIN(7), 

STATUS entry; 



A=3; 

DO WHILE ('I'B); 

CALL AWAIT (3); 
CALL status; 

CALL THRESH (3); 
END /’('DO*/; 

END P3; 
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H. P4.FLI 



/# 



Prog Name 
Date 

Written by 
For 



P4.PLI 
December 83 
M. Kadri Ozyurt 
Thesis 



Advisor 
Purpose 
in which 
until an 



: Professor Kodres 

: This process is an infinitive loop 
there is only one call to IDLE.PLI repeadi tively 
interrupt comes along. 



P4: procedure; 

DCL AWAIT ENTRY (FIXED BIN(7)), 
THRESH ENTRY (FIXED BIN(7)), 
A FIXED BIN (7), 

IDLE entry; 



A=4; 

DO WHILE ('I'B); 

CALL idle; 
END /*DOV; 

END P4; 
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APPENDIX E 



MISCELLANEOUS ASSEMBLY ROUTINES 



A. KEYBOARD. A86 



Prog Name 
Da te 

Written Ly 
For 

Advisor 

Purpose 

parameter, KEY, 
interface chip. 



KEYBOARD. A86 
December 83 
M. Kadri Ozyurt 
Thesis 

Professor Kodres 
This program receives a fo 
reads the status of the ser 
If a character has been received 



keyboard, it reads this character and places it 
formal parameter. If there is not a character ava 
it puts a ascii equivalent of zero into the pa 
The reason for that is that zero is not used as a 
command. The variables used here are defined in 
of ARBITER. A86 



rmal 

ial I/O 
from the 
to the 
liable 
rameter . 
keyboard 
the body 



KEYBOARD: 



KEYBOARDl 

KEYB0ARD2 



PUSHF 

CLI 

PUSH 


AX 


IN 


AL,P0RTST 


CMP 


AL,RXRDY 


JZ 


KEYBOARDl 


IN 


AL,P0RTI0 


AND 


AL,7FH 


JMP 


KEYB0ARD2 


MOV 


AL,30H 


MOV 


BX,[BX] 


MOV 


[BX] ,AL 


POP 


AX 


POPF 

RET 
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B. AT0D.A86 



jProg Name ; AT0D.A86 

JDate : Decemter 83 

jWritten "by : M. Kadri Ozyurt 

JFor ; Thesis 

;Advisor ; Professor Kodres 

JPurpose ; This program receives two parameters 

;it reads the output of the A/D converter specified hy the 
Jsecond parameter and places it into the first parameter. 
jThe variables used here are defined in ARBITER. A85 



ATOD: 



PUSHE 

CLI 

PUSH 


SI 


PUSH 


AX 


PUSH 


EX 


PUSH 


BX 


PUSH 


DS 


MOV 


BX, [BX] 


MOV - 


AH,0 


MOV 


AL, [BX] 


MOV 


SI ,AX 


MOV 


AX,SEGCONV 


MOV 


DS ,AX 


MOV 


BX,OFFCONV 


MOV 


AL, [BX+SI] 


POP 


DS 


POP 


BX 


MOV 


BX,2[BX] 


MOV 


• [BX] ,AL 


POP 


BX 


POP 


AX 


POP 


SI 


POPF 

RET 





;bx=.argument(i) 



;read A/D port 
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C. RINGBELL.A86 



;Prog Name 
;Date 

JWritten "by 
»For 

; Advisor 
; Purpose 

; the video terminal 



RINGBELL.A86 
Decemter 83 
M. Kadri Ozyurt 
Thesis 

Professor Kodres 
This program sends 
The variables used 



a bell character to 
here are defined in 



;the tody of ARBITER. A86. 



RINGBELL: 



PUSHE 

CLI 

PUSH 


AX 


CALL 


WAIT 


MOV 


AL,BEL 


OUT 


PORTIO,AL 


POP 


AX 


POPE 

RET 
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D. WAIT.A86 



jProg Name 


: WAIT.A86 




;Cate 


; December 83 




JWritten by 


; M. Kadri Ozyurt 




jFor 


: Thesis 




JAdvisor 


: Professor Kodres 




; Purpose 


: This program program 


reads the status 


; of the serial 


I/O chip and waits until 


the transmitter is 


; ready to send 


characters. 




WAIT: 


PUSH 


AX 




WAITl: IN 


AL,0DEH 


;GET STATUS 


AND 


AL,1 




JZ 


WAITl 




POP 

RET 


AX 
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E. SUSPEND .A86 



;Prog Name 
;Date 

;Written by 
>For 

; Advisor 
JPurpose 
;by reseting 



; SUSPEND. A86 
: December 83 
: M. Kadri Ozyurt 
: Thesis 

: Professor Eodres 

: This program stops the real time clock 
the interrupt bit of the PSW. 



SUSPEND: 



CLI 



F. RESUME. A86 



;Prcg Name : RESUME. A86 

»Date : December 83 



f 

f 



f 

t 

f 



Written by 
For 

Advisor 
Purpose 
by reseting 
tbe counter 



: M. Kadri Ozyurt 
: Thesis 

: Professor Kodres 

t This program starts the real time clock 
the interrupt bit of the PSW. It then reset 
to zero. 



RESUME: 



PUSH 


AX 


MOV 


AL,CNTR2 


OUT 


PORTC,AL 


MOV 


AL,CNTRHI 


OUT 


COUNT, AL 


MOV 


AL,EOI 


OUT 


PIC1,AL 


POP 


AX 


STI 




RET 





;reset counter 



PRESET PIC 
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APPENDIX P 

DYNAMIC DEBUGGING MODULE LISTINGS 



A. LOCALS AID 



/# 

Prog Name 
Date 

Written by 
For 

Advisor 
Purpose 
tions of the 



: LOCALS. AID 
: December 83 
: M. Kadri Ozyurt 
; Thesis 

: Professor Kodres 

: This %include file contains the declara- 
variables used by the dynamic debugging module 



DCL 

BREAKS (0:9) LABEL, 

STOPS(0:9) BIT(l) EXTERNAL, 

(C0DE1,C0DE2, VALUE, H) FIXED BIN(15), 

BREAKPT FIXED BIN(15) EXTERNAL, 

PUTVARS ENTRY, 

REENTRY ENTRY, 

BREAKPTS ENTRY, 

PROMPTUSER ENTRY (FIXED BIN(7)), 

STORESTATUS ENTRY, 

TACTICAL ENTRY, 

DISPLAY ENTRY, 

IDLE ENTRY, 

STATUS ENTRY 

CHANGEVA ENTRY (FIXED BIN(15), FIXED BIN(15)); 
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E. ERRHAND.AID 



Prog Naire : ERRHAND.AID 

Date : December 63 

Written by ; M. Kadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose : This %include file contains six 

different types of PL/I ON condtion bodies. Upon 

intercepting any raised error condition is displayed 

and the control is transfered to PROMPTUSER with a number 

that shows which breakpoint has been past. Then the ON 

condition body is exited with a non-local goto statement. 

At the exit point the control is transfered to REENTRY 
which is the dynamic debugging tool. This call to REENTRY 
is protected during the course of normal operation with an 
if statement which tests the value of ERRORON. 



stops(0)=false> 
stops(l)=falsei 
stops(2)=false; 
stops(3)=false; 
stops (4)=false; 
stops(5) =falsej 
stops(6)=false> 
stops(7)=false; 
stops(8)=false; 
stops(9)=false; 
on error 
begin; 

put listC'^Z'); /*clear screen*/ 

put skip list( 'Error #')» 

/*this statement gets the code of the error condition*/ 
c odel=oncode ( ) ; 

/*this call prompts the user with the # of breakpoints past 
and asks if the user wants to enter the dynamic debugging 
environment*/ 

call promptuser (codel ) ; 

if (key='y') 1 (key='Y') then goto errorexit; 
else if codel<=127 then doi 

put skip list('The program will be abandoned'); 
stop; 

end /*if*/; 
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end /^evTOT*/ t 



on f ixedoverf low 
begin; 

put list('^Z'); 

put skip list ( 'Fixedoverf low #'); 

codel=oncode( ) ; 

call promptuser (codel ) ; 

if (key='y') ! (key='Y') then goto errorexit; 
else if codel<=127 then do; 

put skip list('The program will he abandoned'); 
stop; 

end /=^ifV; 

end /’’‘f ixedoverf low*/ ; 

on overflow 
begin; 

put list('''Z'); 

put skip list ( 'Overflow #'); 

codel=oncode ( ) ; 

call promptuser (codel ) ; 

if (key='y') ! (key='Y') then goto errorexit; 
else if codel<=127 then do; 

put skip listC'The program will be abandoned'); 
stop; 

end /*if*/; 

end /*overf low*/; 

on underflow 
begin; 

put list('''Z'); 

put skip list ( 'Underflow #'); 

codel=oncode( ) ; 

call promptuser (codel ) ; 

if (key='y') ! (key='Y') then goto errorexit; 
else if codel<=127 then do; 

put skip list('The program will be abandoned'); 
stop; 

end /*if*/; 

end /*underf low*/ ; 

on zerodivide 
begin; 
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put iist("'z'); 

put skip list( 'Zerodivide #'); 

codel=oncode ( ) > 

call prodiptuser (codel ) ; 

if (key='y') I (key='Y') then goto errorexit; 
else if codel<=127 then doi 

put skip list('The program will he abandoned') 
stop; 

end /*ifV; 

end /♦zerodivide’S'/ ; 

errorexit : 

if erroron then doi 

call reentry ( ); 
end /*ifV; 
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D. REENTRY. PLI 



/* 

Prog Narre : REENTRY. PLI 

Date : Decernter 83 

Written ty : M. Sadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose : This routine is the "workhorse" of 

the dynamic debugging environment. It calls PUTVAES if 
the user wants to see the external variables . Then it 
calls CHANGE7A if the user wants to change any variable 
with in a loop until no changes are wanted.lt then transfers 
the control to the breakpoint the user desires. 

*/ 



reentry:proc external; 

/* 

del 

*/ 

%include 'const. inp'; 
%include 'global s . inp ' ; 
%include 'locals. aid ; 



put 

put 



skip 

skip 



list('You have entered the 
list('You will be asked 



interactive debugging 

, 'environment . ' ) ; 
questions about the ', 
'control of program flow'); 



reentryl : 

put skip list('Do you want a listing of all variables ', 

'(Y/N)?'); 

get list(key); 

if (key='Y') ! (key='y') then call putvars(); 

put skip list('Do you want to change the value of any ', 

'variable( Y/N )? ' ) ; 



get list (key); 

do while (“"((key = 'N') ! (key='n'))); 
if (key = 'Y') ! (key='y') then do; 
put skip list( 'Enter the number and the new value ', 

' (-32768<=value<=+32,767) of the veriable you want to'); 
put skip list(' change in integers seperated by a ', 

'comma . ' ) ; 



on error begin; 

put list ('**’«' bad entry, try again'); 
goto reentry2; 
end /’*‘error^/; 
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on f ixedoverf low "begin; 

put llst('*** too large, try again'); 
go to reentryS; 
end /*f ixedoverf low^**/; 
reentry2 : 

put skip list('>'); 
get list (codel , value ) ; 
revert error; 
revert f ixedoverf low; 
if codel>maxvars then 

put list( 'invalid variable number'); 

else 



call changeva (codel , value ) ; 

/*end if*/ 

put skip list('Do you want a listing again ;Y/N)?'); 
get list(key); 

if (key='Y' ) ! (key='y' ) then call putvars(); 

put skip list ('Do you want to change another variable ', 

'(Y/N)?'); 

end /*doV; 
else 

put list('*** bad entry, try again'); 

/*end if*/ 
get list(key); 
end/*do*/ ; 

put skip list( 'Which breakpoint do you want to transfer the ', 

'control (0 thru 9, foolowed by return)?'); 

get list(key); 

do while ( (rank(key)<48) ! ( rank(key)>57 ) ) ; 
put list('*** bad entry, try again'); 
put skip list ('>'); 
get list(key); 
end/*do*/; 
codel=rank(key )-48; 
breakpt=codel ; 

put skip list( 'Enter the breakpoint you want to stop (0 ', 

'thru 9) or any non-numeral character if you do not want to ', 

stop(fol. RET'); 

get list(key); 

if ((rank(key)<48) I (rank(key )>57) ) then do; 

put skip list('The program will execute beginning from ', 

'the breakpoint ', codel ) ; 

erroron=false» 
end /*do*/; 

else 



do ; 

code2=rank(key )-48; 
stops (code2 )=t rue; 

put skip list('The program will execute between the ', 

'breakpts ', codel, ' and ',code2); 
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end 



put skip lisK'Is that what you want(Y/N )?' ); 
get list(key); 

if (key='N') ! (key='n') then do? 

put skip list('Do you want another run(Y/N)?') 
get list (key); 

if (key='Y') ! (key='y') then goto reentryi; 
end /*if=«'/; 

end reentry; 
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E. PUTVARS.PLI 



/# 

Prog Naire 
Date 

Written t»y 
For 

Advisor 
Purpose 
varieties out 
# / 



: PUTVARS.PLI 
: December 83 
; M. Kadri Ozyurt 
: Thesis 

: Professor Kodres 

: This routine puts selected external 
with PL/I put edit statement. 



putvarsrproc external; 

%replace mai_ ships by 2, 
true by 'I'b, 
false by '0'b; 

/*dcl«/ 

%include 'globals . inp ' ; 

i=0; 

J=0; 

put skip list('The listing of all common variables is as 

'follows : ' ) ; 

put skip(2) list('Fiied binary values:')* 

put skip edit( ' (1 ) seconds=' , seconds ,' (2 )minutes=', minutes , 

' (3)hours=' ,hours , ' (4)wake_ptr=' ,wake_ptr , ' ( 5) 1=' ,i ) ( r Uormatl ) ) ; 
put skip ed it ( ' (6 ) t_of =' , t, of , ' (7 ) target=' , target , 

' (8 ) own=' ,own , ' (S )known=' , known ,'(10)J=',j)(r (f ormatl ) ) ; 
put skip edit('(ll)t=',t, '( 12) t_pr ime=' ,t_prime, '( 13) currentproc= ' , 

currentproc) (r( forma tl ) ) ; 

put skip edit ( '(14)fourthevc=' ,fourthevc) (a,f (5) ) ; 
put skip(2) list( 'Fixed decimal values:'); 
put skip(2) list( 'Boolean values:'); 

put skip edit ( ' (15)engaged=' , engaged , ' (16 )magnif ied=' .magnified , 

' (17) fired= ' .fired , (18)erroron=' .erroron) 

(a,b( 1 ) ,col(20) ,a ,b( 1 ) ,col (41 ) ,a , b( 1 ) , col (58 ) ,a,b(l ) ) ; 
put skip(2) list('Fixed decimal values:'); 
put skip edit ( ' (19)vx_own=' , vx_own, ' (20) vy_ own=' , vy_ own , 

' (21 ) vx_ targe t=' ,vi_ target , ' ( 22 )vy_target= ' ,vy_ target ) ( r (format 2 ) ) ; 
put skip ed it ( ' (23 ) VI rel = ' , vx_rel , ' ( 24) vy_ rel = ' .vy rel , 

(25 ) VI _ round*' ,vi round , ' (26 )vy_ round* ' ,vy_ round ) ( f ( f ormat2 ) ) ; 
put skip ed it ( ' (277 vr*' , vr , ' ( 28 )alpha* '.alpha , 

' ( 29 )ax*' ,ax, ' (30 )bx=' , bx ) ( r( forma t2 ) ) ; 

put skip edi t ( ' (31 ) cx* ' . cx . ' (32 )ay*' .ay. ' (33)by*' . by . ' ( 34 )cy= ' . cy ) 

( r ( f ormat2 ) ) ; 
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put skip edit ( ' (35 )ai_surn=',ax_sum, ' (36)ti_sum=' ,l5i_sum, 

' (37 jci.sums' ,cx2sum) (r(fcrmat3) ); 
put skip edit ( ' (38 )ay_sum=' ,ay_sum, (39)l)y_suin=' ,‘by_sum, 

' (40 )cy_sutn = ' ,cx~sum) (r(format3) )J 
put skip edlt( '(41)x_at5=',x at5, '(42)y_at5=',y at5, 

' (43 ) r= r )( r( forma t3 )) ; 

put skip edlt('(44)dx_dt_at5=',dx_dt_at5,'(45)dy_dt_at5=', 

dy dt_at5, '(46)dr_dt_at5=',dr_dt_at5) (r(f ormat3) ); 
put sklp(2) llstT 'Character values:'); 
put skip edit ( ' (47)key=' ,key ) (a(8 ) ,a (1 ) ) ; 
put sklp(2 )llst( 'Arrays; ') ; 

put skip edit ( ' (48 ) threshold (0)=' ,threshold{0 ) , ' (49 ) threshold( 1 )=' , 

threshold (1), '(50 )threshold (2)='. threshold(2)) 
(a,f(5),col(26),a,f(5),col{51),a,f(5)); 
put sklp(2) llst('Data structures;'); 
put skip list ( 'shtp(l) ; ' ) ; 

put skip edlt( '(51)course=' , coursed ), '(52) speed*' ,speed(l) , 

' (53 ) azimuth* ' ,azlmuth(l ) , ' (54) range*' ,range( 1) ) (r (forma t4 ) ) ; 
put skip edit ( ' (55)x=',x( 1 ) , ' (56)y=' ,y(l) , '(57)x_alm=' »x_alm(l) , 
'(58)y_alm*' ,y_alm(l) ) (r(format5)); 
put skip edit (' (59 )count*' .count (1 K ' (60 )numher*' ,num herd ) , 
'(61)ptr*',ptr(l)» '(62)llnk_shlp*',llnk_shlp(l) ) 

(r (formate) ) ; 

put skip llst( 'Shlp(2) ; ') ; 

put skip edit (' (63)course=' ,course(2 ), '(64) speed*' , speed(2) , 

' (65 ) azimuth* '»azlmuth(2) , '(66) range* '.range (2) ) (r(f ormat4) ) ; 
put skip edlt( ' (67)x='.x(2) . ' (68)y*' .y (2) . '(69)x_alm='.x_alm(2) . 

'(70)y_alm*' ,y_alm(2) ) (r (formate) ) ; 
put skip edlt( '(71)count*' .count(2K '(72)number='.number(2) . 
'(73)ptr='.ptr(2).'(74)llnk_ship='.llnk_shlp(2)) 

(r (formate) ) ; 

put skip llst( 'Gun: ') ; 

put skip edlt('(75)az='.az.'(76)alt=' .alt. '(77)x_gun*'.x_gun. 

'(78)y_gun='.y_gun) (r(format5)K 
put skip list ( '¥ake(ptr(2) ) ; ' ) ; 

put skip edlt( ' (79 )x_wake*'.x_wake(ptr (2 ) ) . '(80)y_wake=' . 

y_wake(ptr (2 ) ) . '(81) link wake*' .llnk_wake(ptr (2) ) ) 

(a.f (7,1) , col (20) .a.f (7.i),col(39),a,f(l)) ; 
put skip edit ( ' (82)dt*' ,dt) (a.f (4,2 )) ; 
formatl; format (a.f (2) ,col(16),a,f(2Kcol(31),a,f(2) , col (44) ,a ,f (2 ) ,col (59) , 

a.f (5)); 

f 0rmat2; format (a.f (4,1) ,col (19) .a, f (4,1) , col (37) ,a ,f (4,1) ,col (58 ) ,a , 

f (4,1)); 

format3;f ormat (a ,f(4,l),col(24),a.f(4,l),col(47),a,f(4,l)); 
format4;f ormat(a.f (4,1) ,col(19) ,a,f (4,1) ,col(35) .a.f (4,1) ,col (54) ,a . 

f(7,D); 

format5;f ormat (a ,f (7,1) ,col(19) ,a,f(7,l) ,col(35) ,a,f(7,l) , col (54) ,a, 

f (7,1)); 

format6;f ormat (a.f (1 ) ,col(19) ,a,f (2) ,col(35) ,a ,f (2) ,col(54) ,a ,f (2) ) ; 
end putvars; 
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F. CHANGEVA.PLI 



/* 

PrO(? Name ; CHANGEVA.PLI 

Date ; December 83 

Written by : M. Kadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose : This routine changes a selected 

external variable specified by the parameter passed 



changeva ;proc(codel, value) external > 



del 



(codel , value) fixed bin(15); 

^include 'const. inp'; 
^include 'globals.inp'i 



if 


codel=l 


then 


if 


c odel=2 


then 


if 


codel=3 


then 


if 


codel=4 


then 


if 


ccdel=5 


then 


if 


codel=6 


then 


if 


codel=7 


then 


if 


codel=8 


then 


if 


codel=9 


then : 


if 


codel=10 


then 


if 


codel=ll 


then 


if 


code 1=1 2 


then 


if 


codel=13 


then 


if 


codel=14 


then 


if 


codel=15 


then 


if 


codel=16 


then 


if 


codel=17 


then 


if 


c odel=18 


then 


if 


codel=19 


then 


if 


codel=20 


then 


if 


codel=21 


then 


if 


codel=22 


then 


if 


codel=23 


then 


if 


codel=24 


then 


if 


codel=25 


then 


if 


codel=26 


then 


if 


codel=27 


then 



seconds=bi nary( value ,7 j ; 
minutes=binary( value ,7) ; 
hours=binary (value,7) ; 
wake_ptr=binary (value ,7 ) ; 
i=biiiary (value, 15 ) ; 
t_of=bina ry( value ,7 ) ; 
target=binary (value ,7 ) ; 
own=bi nary (value, 7) ; 
known=binary ( value ,7 ) ; 
J=binary( value ,15) ; 
t=bi nary (value ,7 ) ; 
t_prime=binary (value ,7) ; 
cur rentproc=b inary (value, 7) ; 
f cur thevc=b inary ( value, 15 ) ; 
engaged=bit (value ,1 ) ; 
magnif ied=bit (value ,1 )> 
f ired=bi t (value , 1 ) ; 
erroron=bit (value ,1 ) ; 
vx_own=decimal (value ,4,1 ) » 
vy3own=decimal (value, 4,1 ); 
vx_target=decimal(value,4,l) ; 
vy~target=decimal (value ,4, 1 ) ; 
vx_rel=decimal ( value ,4 ,1 ) ; 
vy_rel=decimal( value, 4,1 )> 
vi~round=decimal (value ,4, 1 ) ; 
vy_round=decimal (value, 4,1 ) » 
vr=decimal (value ,4,1); 
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if 


code 1=28 


then 


if 


codel=29 


then 


if 


c odel=30 


then 


if 


codel=31 


then 


if 


codel=32 


then 


if 


codel=33 


then 


if 


codel=34 


then 


if 


codel=35 


then 


if 


codel=36 


then 


if 


codel=37 


then 


if 


codel=38 


then 


if 


codel=39 


then 


if 


codel=40 


then 


if 


codel=41 


then 


if 


codel=42 


then 


if 


codel=43 


then 


if 


code 1=44 


then 


if 


codel=45 


then 


if 


codel=46 


then 


if 


code 1=47 


then 


if 


codel=48 


then 


if 


code 1=49 


then 


if 


codel=50 


then 


if 


codel=5l 


then 


if 


codel=52 


then 


if 


cod el =53 


then 


if 


codel=54 


then 


if 


codel=55 


then 


if 


codel=56 


then 


if 


codel=57 


then 


if 


codel=58 


then 


if 


codel=59 


then 


if 


codel=60 


then 


if 


codel=61 


then 


if 


codel=62 


then 


if 


codel=63 


then 


if 


cod el =64 


then 


if 


codel=65 


then 


if 


cod el =66 


then 


if 


codel=67 


then 


if 


cod el =68 


then 


if 


codel=69 


then 


if 


codel=70 


then 


if 


codel=71 


then 


if 


codel=72 


then 


if 


codel=73 


then 


if 


codel=74 


then 


if 


codel=75 


then 


if 


codel=76 


then 


if 


codel=77 


then 



alpha=decimal(value,4,l) ; 
ax=decimal ( value »7,2) ; 
l)x=declinal (value ,7,2); 
ci=decimal ( value ,7,2) ; 
ay=decimal( value ,7 ,2 ) ; 
■bysdecimal ( value ,7,2) ; 
cy=deciiTial (value ,7,2); 
ax_ sum=decimal{ value ,7,2 ) ; 
lix_ sum=declinal (value ,7,2 ) ; 
cx_sum=declmal( value ,7,2) ; 
ay_sum=declmal (value ,7,2); 
l)y_suni=declmal (value ,7 ,2 ) ; 
cylsum=decimal(value,7,2 ); 

X. at 5=decimal (value ,7.2 ) ; 
y„at5=decimal (value ,7,2); 
r=decinial (value ,7,2 ) ; 
dx_dt_at5=declmal (value ,7,2) ; 
dy_dt_at5=decimal(value ,7,2) ; 
dr_dt_at5=declmal(value,7,2) ; 
key=aicli (value ) ; 
threshold (0 ) =value ; 
threshold (1 )=value; 
threshold (2) =value ; 
course( 1 )=decimal(value ,4,1 ) ; 
speed ( 1 ) =dec imaK value, 3,1); 
aziinuth(l )=decimal (value ,3 ,0 ) 
ranged ) =dec imal (value ,5, 0 ) ; 
x(l)=declmal (value ,6,1); 
y (1 )=decimal (value ,6 ,1 ) ; 
x_aim( l)=declinal (value,6, 1 ); 
y”aim(l )=decimal (value, 6, 1 ) ; 
count(l)=hinary( value ,7); 
numt)er(l)=l)inary (value,7) ; 
ptr(l)=hinary( value ,7) ; 
link ship (1)=^ inary (value,7) ; 
course(2;=declmal( value ,4,1) ; 
speed(2)=decimal (value,3,l ); 
azimuth ( 2 )=dec imal (value, 3,0 ) 
range(2)=decimal (value ,5 ,0 ) ; 
i(2)=decimal(value,6,l) ; 
y (2)=decimal (value ,6 , 1 ) ; 
x_aim(2)=decimal (value ,6,1 ) ; 
y_aim(2)=decimal(value,6,l ); 
count (2) ='binary( value ,7) ; 
number (2) =hi nary (value, 7) ; 
ptr( 2) =binary ( value ,7 ) ; 
link_ship(2)=hinary(value,7) ; 
az=decimal( value ,4,1 ) ; 
alt=decimal (value ,4,1 ) ; 
x_gun=decimal ( value ,6 ,1 ) ; 
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if codel=78 then y..gun=declmal (value ,6 ,1 ) ; 
if codel=79 then x_wake(ptr( 2 ) )=decimal( value , 6, 1 ) > 
if codel=80 then y„wake(ptr(2) )=decimal(value,6, 1) ; 
if codel=61 then link _wake(ptr(2) )=hinary (value, 7) ; 
if codel=82 then dt=float (value ,7) J 

lid changeva; 
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G. BREAKS0.AID 



/* 



Pro^ Name 
Date 

Written tiy 
For 



BREAKS0.AID 
December 83 
M. Kadri Ozyurt 
Thesis 



Advisor : Professor Kodres 

Purpose : This %include file is one of the ten 

%include files ,BREAKS0 through BREAKS9, that are used 
to insert various parts of the programs to be tested. 
They are protected during the normal operation of the 
program under test with an if statement. Within the if 
statement thereis a call to BREAXPTS . 



IEAKS(0) : 

BREAKPT=0; 

IF STOPS (BREAKPT) THEN DO; 
CALL BREAKPTS; 

GOTO BREAKS (BREAKPT) ; 
END /*IFV; 
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H. BREAKPTS.PLI 



/•* 

Prog Natre : BREAKPTS.PLI 

Date : Decemter 83 

Written ty : M. Kadri Ozyurt 

Eor : Thesis 

Advisor : Professor Kodres 

Purpose : This routine prompts the user that the 

breakpoint intended to stop has been reached. Then it asks 
if the user wants to transfer the control over the dynamic 
dehuggig environment. If the answer is positive then it 
calls HEENTRT where the control stays thereafter. 

*/ 



hreakptstproc external? 
del 

stops(0:9) hit(l) external, 
hreakpt fixed hin(15) external, 
key char(l) external, 
erroron hit(l) external, 
reentry entry? 

stops ( hreakpt ) = '0 'h? 

put skip li St ( breakpoint ', hreakpt , ' 

put skip list('The execution halted and clock stopped.')? 

put skip list('Do you want to enter the interactive debugging', 

'environment (T/N )? ' ) ? 

get list(key)? 

if (key='T') 1 (key='y') then 
call reentry ( ) ? 

else 

erroron='0 'b? 

/♦end if*/ 
end breakpts? 
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I. TIMES. AID 



/* 

Prog Name 
Bate 

Written "by 
For 



TIMES. AID 
December S3 
M. Kadri Ozynrt 
Thesis 



Advisor 
Purpose 
WAR.PLI to 



: Professor Kodres 
: This %include file is 
test the execution times of the 



system routines. 
♦/ 



inserted to 
individual 



put slcip(2) list ('Do you want to measure the execution', 
, 'times of the modules (T/N)?'}; 
get list (key); 

do while ((key='I')^! (key='y')); 

put skip(2) list( 'Enter the number of iterations you want 

'(max 32,767).'); 

on error begin; 

put list('*=^* bad entry, try again.'); 
goto timesi; 
end /=**errorV ; 
on f ixedoverf low begin; 

put list('=*'** too large, try again.'); 
goto timesi; 
end /*f ixedoverf low*/; 
timesi : 

put skip(2) list('>'); 
get list(h); 
revert error; 
revert f ixedoverf low; 

put skip(2) list('Get ready for time check. The modules', 

will execute ',h,' times.' 



do i=l to 4 ; 



put skip(2) list( 'Ready ! ! Press any 

, 'the t ime check of 



if i=l then 
else if i=2 
else if i=3 



key to start 
the module' ) ; 

put list ( ' IDLE . ' ) ; 
then put list(' STATUS. ') ; 
then put list(' TACTICAL.'); 



else put list(' DISPLAY.'); 
get list(key); 
do j=l to h while 
do J=1 to h while 
do j=l to h while 
do j=l to h while 



(i=l); 
(i=2) ; 
(i=3); 
(i=4) ; 



call idle; end; 
call status; end; 
call tactical; end; 
call display; end; 



); 
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put skip{2 ) list ( 'The end of the execution 
put sklp{2 )li st( 'Enter the time measured in ', 

'seconds . ' ) 



on error begin? 

put list!'*’*'* had entry, try again'); 
go to times2; 
end /*error*/; 
on f ixedoverf low begin; 

put listC'*** bad entry, try again.'); 
goto times2; 
end /*f ixedoverf 1 ow*/ ; 

times2 : 

put skip(2) list('>'); 
get list(jK 
revert error? 
revert fixedoverf low; 
begin ; 

del duration float; 

dura tion=fl oat (j)/float(h); 

put ski 5 ( 2 ) list('The execution time of the ', 
module is' , duration , ' iterations/sec' ) ; 

end ; 

end /*doV; 

put skip(2) list('Do you want another run (Y/N)?')? 
get list(key); 
end /*do*/; 
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APPENDIX G 



A SAMPLE SUBROUTINE TESTING 



Prog Name : P.PLI 



Date 

Written ly 
For 

Advisor 



December 83 
M. Kadri Ozyurt 
Thesis 

Professor Kodres 



Purpose : This program is written to test 

individual procedures in an interactive manner. At each 
iteration new values are asked. The PL/I ON condition 
todies are used to intercept any inad vertantljf wrong 
entries. The endless loop can te terminated either C or 
from the terminal. In this particular example the 
procedure DRAW inside the tody of DISPLAY. PLI is tested by 
making it external for the test purposes. 

*/ 



ptproc opt ions (main) ; 
del 

(u.v) (0:10) fixed bin(15) , 

(i,x,y)fixed bin(15), 
rub chard ) external, 
d fixed bin(7), 

draw entry ((0:10)fixed bin( 15) , (0 :10 ) fixed bin{15) 

.fixed bin(7) ); 



on error begin; 

put skip list('“^*’^ bad value, try again'); 
goto reentry; 

end; 

on f iiedoverf low begin; 

put skip listC'*’*'* too large, try again'); 
goto reentry; 

end; 
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reentry: 
rub=ascii (127) ; 
do while ( '1 'b ) ; 

put iist("'r_^x'); 

put skip listl 'enter x and y')» 

put skip list('>')J 

get list(i,y); 

put list("'Z'); 

call gen(x,y,u,v); 

d=i; 

call draw(u,v,d); 
call delay; 
d=0; 

call draw(u,v,d); 

end ; 

delay :proc ; 

del (i,J) fixed bin(15); 
do i=l to 30000; 



do j=l to 2; 
end; 



end; 



end ; 



gen:proc(i,y ,u,v) 



del 



(u,v)(0:10) fixed bin(15), 
(x,y) fixed bin(15); 



u(0 ) =x+8 ; 
u(i)=x; 



v(0)=y; 



u(2)=x-8; 

u(3)=x; 



v(l )=y+8; 

v(2)=y; 

v(3)=y-8; 



u(4)=x+8; 

u(5)=-i; 



v(4)=y; 

v(5)=-i; 



end; 



end p; 
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APPENDIX H 



A SAMPLE PROGRAM TESTING 



/* 



Prog Name 
Date 

Written by 



IDLE.PLI 
December 83 
M. Kadri Ozyurt 



For 

Advisor 
Purpose 
procedure 
After the 



Thesis 

Professor Kodres 

This is the testing version of the 
IDLE.PLI under the dynamic debugging module, 
correct result from the test bad been taken, 



the final version of the procedure was made simply removing 
the segment of code in between the comment lines. In order 
to test the program, an interactive main procedure as in 
Appendix G was written. 



IDLEtPROCEDURE EXTERNAL; 



DCL 

*/ 

%INCLUDE 'CONST. INP'; 
^INCLUDE 'GLOBALS.INP'; 



DE3UG AID 

%INCLDDE 'LOCALS. AID'; 
^INCLUDE 'SRRHAND.AID'; 
%INCLUDE 'BREAKS0.AID'; 



DO D=0 TO 5 ; 

CALL ATOD (D,ARG(D)); 
END /’i'DOV; 
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/*at this point the A/D output values are fixed hin(7) 
values. The following sequence converts those to fixed 
decimal values*/ 

debug aid #**#=!'>!'/ 

%INCLUDS 'BREAKSI.AID'; 

end aid 



COURSE(OWN)=ARG(0) ; 

SPSED(OWN)=ARG(4) ; 

C0URSE(SN0WN)=ARG(2); 

SPEED (KNOWN )=ARG(3) ; 

AZ=ARG(1) ; 

ALT=ARG(5); 

/###### debug aid ####*#/ 

^INCLUDE 'BREAKS2.AID'; 

/jJc:Jcj)c#s)c4:# end aid 

/*the following sequence converts A/D values to real time 
values hy using appropriate proportionality constants*/ 
COURSE(OWN) = COURSE(OWN) * K; 

COURSE(KNOWN) = COURSE (KNOWN ) * K; 

AZ = AZ * k; 

IF COURSE(OWN)<2.0 THEN 

COURSE(OWN) = COURSE (OWN) + TWO_PI j 
IF COURSE(KNOWN X0.0 THEN 

COURSE(KNOWN) = COURS E( KNOWN ) + TWO PI ; 

IF AZ<0.0 THEN 

AZ = AZ + TWO pi; 

IF ALT>90.0 THEN 
ALT = 90.0; 

/###### debug aid #»!'####/ 

%INCLUDE 'BREAKS3.AID'; 

end aid 

SPEED(OWN) = speed(own)/l; 

SPEED (KNOWN) = SPEED (KNOWN) / L; 

/*ownship speed computations*/ 

VX OWN = SPEED(OWN) * SIND(COURSS (OWN ) ) ; 

VY'OWN = SPEED(OWN) * COSD( COURSE (OWN )) ; 

/*>!'***# DEBUG AID *f****^/ 

^INCLUDE 'BREAKS4.AID'; 

end aid #'!'#####’!'/ 
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/’‘‘when not have fired, the following makes the tallistic 
computations*/ 

IP " FIRED THEN 

begin; 

T_OF = 2.0 * VM * SIND(ALT) / G; 

debug aid 

^INCLUDE 'BREAKS5.AID'; 

end aid 

VR = VM * COSD(ALT); 

R = VR * t_of; 

DEBUG AID ****^*f*/ 

^INCLUDE 'BREAKS6.AID'; 
end AID ####♦##=«'/ 

X_AIM(OWN) = R * SIND(AZ); 

T_AIM(OWN) = R * COSD(AZ); 

X_GUN = 0 . 0 ; 

T_GUN = 0 . 0 ; 

/###### DEBUG AID **^^*f*/ 

%INCLUDE 'BRIAXS7.AID'; 

END AID ****f^**^ / 

VX ROUND = VR * SIND(AZ); 

VY3 ROUND = VR * COSD(AZ); 

DEBUG AID 

%INCLUDE 'BREAKS8.AID'; 

END AID ^**^**^* / 

T = t_of; 

END /*IF*/; 

debug aid 

%INCLUDE 'BREAKS9.AID'; 

end aid ******^* / 

END idle; 
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